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「 東 京 大 学 教育 用 計算 機 セ ンタ ー テ キス ト 」 に つい て 


東京 大 学 教育 用 計算 機 セ ンタ ー テ キス ト は , 情報 処理 教育 に と っ て 役立つ 書 を 次 々 と 発刊 する 目 
的 で 作ら れ た , シリ ー ズ 色 の 強い 企画 で ある . 

我々 が お 手 本 と し て きた の は , 「JIS FORTRAN 入門 」( 森 口 繁 一 著 ) で ある . この 書 は 短期 に し 
か も 独学 で プロ グラ ミン グ を 習得 で きる も の と し て 優れ た 本 で ある . この 思想 を 見 習い , 従来 極め 
て 使い づら か っ た 大 型 機 の マニ ュ ア ル を , 独学 で も 使え を る よう に と 工夫 し た の が , 本 テキ スト の 第 
一 作 『 計 算 機 セ ンタ 利用 入門 」 で ある . この 書 は , 本 セン ター に 昭和 56 年 に 設置 され た MEL- 
COM COSMO 900 II が , TSS の 事実 上 初め て の 機種 だ っ た こと か ら , 広範 な TSS の 使い 方 を 学 
生 が 自習 で きる よう に 立案 され た も の で ある . こう し た 書 は 従来 」 あ る 程度 使い こなし た ユー ザー 
を 対象 と する メー カー の マニ ュ ア ル か , 比較 的 完成 度 の 低い 各 セ ンタ ー の プリ ント の 形 の も の し か 
な か っ た も の を あえ て テキ スト 化し た も の で ある が , 比較 的 評判 も る 良く, こう し た 指導 書 に 対す る 
ある 程度 の 方 向 を 示し た も の と 確信 し て いる . 

その 後 , パソ コン が 広範 囲 に 普及 し , ある 程度 高度 な 仕事 も パソ コン で 取扱 うこ と が 可能 と な っ 
て きた . 本 セン ター で も 昭和 61 年 より , FACOM M-380/M-360 を ホス ト と し , パソ コン FM-16 
を 端末 と する 新 機種 が 導入 され た . この 際 , パソ コン に よく 整合 し , また 他 の 高級 言語 の 基礎 と 
し て も 極め て 優れ た 言語 で ある と し て , 当 セ ンタ ー が 初等 情報 処理 教育 用 に 選ん だ の が , (Turbo) 
PASCAL で ある . この 言語 は ソフ トウ エア 開発 の 基本 で ある 構造 化 さ れ た 言語 の 代表 で あり , 現 
在 シ ステ ム 開 発 に よく 使わ れる C に も 似 て お り , 欧米 で は も っ と も 多く 教育 に 使わ れ て いる に も 
か か わら ず , 日 本 で は 実用 的 言語 教育 の み が 強 く , あま り 普 及 し て いな いよ う で ある . そこ で 本 セ 
ンタ ー で は , この 言語 を 第 二 作 と し て 取り 上 げた . 本 言語 は 東京 大 学 の 教養 学部 に お ける 初等 情報 
処理 教育 の 大 部 分 で 採用 され る 予定 で あり , 他 大 学 に も 広まっ て いく こと が , 情報 処理 教育 の 将来 
の た め に 望ま し い 姿 で ある と 確信 し て いる . 

本 セン ター で は , 今後 も , 計算 機 教 育 に と っ て 望ま し い 方 向 を 示唆 する 書 を , 本 セン ター テキ ス 
ト と し て 企画 し て いく つも り で あり , 読者 の 方 々 か ら の 適切 な 御 叱 責 , 御 助 言 を いた だ けた ら 幸 い 
で ある . 
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電子 計算 機 が この 世に 出現 し て 以来 , 僅か に 40 年 の 歳 月 を 経た に 過ぎ な い . し か し , この 間 に 
電子 ・ 通 信 ・ 情 報 技術 は 目まぐるしい まで に 進歩 ・ 発 達 を 遂げ , 現在 で は 計算 機 と その 利用 技術 が 
社会 の すみ ずみ に まで 浸透 し て , 人 間 社 会 全体 に 大 き な イ ン パ クト を 与え て いる . 実際 我々 が そ 
れ と 意図 . な いし 認識 すら し な いう ち に , 日 常 生 活 の きま ざま な 場面 で 』 コン ピュ ー タ が 活用 され 
て お り , 我々 の 生活 様式 , 価値 観 , 文化 総体 対し て すら 少な か ら ぬ 影響 を 及ぼ し つつ ある . 昭和 
60 年 4 月 か ら の 電気 通信 事業 の 自由 化 を 契機 と し て , 全国 規模 , 世界 規模 の コン ピュ ー タ ネッ ト 
ワー ク の 構築 も 急速 に 進み , 来 た る べき 情報 化 社会 は 次 第 に 身近 な も の と な りつ つ あ る . 

コン ピュ ー タ の 効用 は , 勿論 この よう な 日 常 的 生活 の レベ ル に ば か りあ る の で は な い . むし ろ , 
コン ピュ ー タ の 出現 に よっ て , 我々 の 知 的 活動 領域 の 幅 が 格段 に 拡大 きれ た と ころ に , より 大 き な 
意義 が ある . 人 類 の 歴史 に お いて , 我々 の 祖先 は 進歩 と と も に その 活動 の 一 部 を 道具 や 機械 に 代行 
させ, そう する こと に よっ て 得 ら れ た ゆとり を 用 いて , 更に 活動 領域 を 拡大 し て きた . 太古 に お い 
て 人 類 は 道具 の 使用 を 開始 し , それ に よっ て 人 間 ら し い 生 活 の 第 一 歩 を 踏み 出し た . 18 世紀 の 産 
業 革 命 は 動力 機械 の 発明 が 契機 と な っ て お り , これ に よっ て 人 類 は 激しい 肉体 労働 か ら 解 放さ きれ た 
そし て 現代 は コン ピュ ー タ と 電気 通信 技術 の 進歩 に よっ て , 人 間 の 最も 高級 な 活動 で ある 情報 活動 
の 一 部 機械 化 を 可能 に し , 我々 の 活動 領域 を 急速 に 拡大 し つつ ある 時 代 で ある と 位置 づけ る こと が 
で きよ ょ よう . 実際 , 直径 1 ミリ に も 満た な い 光ファイバー を 介し て , 僅か 1 秒間 に 文庫 本 数 十 冊 分 に 
も 相当 する 量 の 情報 が や り と りさ れ , 数 十 セ ンチ 四方 の 箱 の 中 で , 毎秒 数 十 億 回 と いう , 地球 上 の 
全て の 人 間 が 東 に な っ て 掛 っ て も か な わな い ほ どの スピ ー ド で , 計算 を こなす スー パー・ コ ン ピ 
ュー タ が 何 十 台 も 日 夜 フル 稼働 し て いる . これ ら は いずれ も より 高度 な 情報 を 求め 新しい 知見 を 
求め て , ある い は 人 類 未踏 の 技術 を 追求 し て 行わ れる 情報 処理 活動 の 一 端 で ある . 

きら に , この よう に 人 間 の 知 的 活動 を 一 部 代行 する 機械 が 出現 し た こと に よっ て , 人 間 の 「 知 」 
と は 何 か が 改め て 問わ れる こと と な り , 計算 機 と その 利用 技術 は 哲学 , 言語 学 , 心理 学 等 の 人 文系 
諸 学 問 分 野 と も 深い 関わ り を 持つ に 至り , 情報 科学 認知 科学 , 知識 工学 な どの 新しい 学問 分 野 も 
生れ た . 記憶 , 学習 , 知覚 , 判断 , 推論 な ど , 人 間 の 知 的 活動 を 代行 する 機械 と し て の 人 工 知能 の 
研究 が 進む に つれ て , 人 間 そ の も の の より 深い 理解 が 求め られ , 既存 の 諸 学問 分 野 に 刺激 を 及ぼ す 
な ど , 計算 機 を めぐ る 科学 は あら ゆる 学問 分 野 と 相互 に 影響 を 及ぼ し 合い つつ , 進歩 ・ 発 展 を つづ 
け て いる . 

以上 を 要する に , 計算 機 は 今や , 自然 科学 や 科学 技術 の 分 野 の みな ら ず , 人 文科 学 , 社会 科学 な 
ど , あら ゆる 学問 分 野 に お ける 共通 の 道具 な いし 対象 と な っ て お り , 計算 機 お よび 情報 処理 の 入門 
教育 は 大 学 に お ける 一 般 教 育 と し て 必要 不可 欠 の も の と な っ て き て いる . 丁度 「 読 み ・ 書 き ・ そ ろ 
ば ん 」 が , か つて 人 間 社 会 の 中 で 生き て いく た め に 必須 の 基本 素養 で あっ た よう に , また 外国 語 の 
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修得 が 国際 化 社会 の 中 に あっ て は 不可 欠 の 要件 で ある よう に , コン ピュ ー タ を 利用 し た 情報 の 生成 , 


加工 , 伝達 , 蓄積 , 利用 等 が で きる こと は 今後 の 高度 情報 化 社会 に お いて は 必須 の 基本 素養 と な っ 
て き て いる わけ で ある . 


東京 大 学 で は , 昭和 62 年 度 か ら , 1, 2 年 生 の 学生 諸 若 を 対象 に , 電子 計算 機 お よび 情報 処理 に 
関す る 入門 教育 を , 教養 学部 に お ける 一 般 教 育 の 一 環 と し て 本 格 的 に 実施 し は じ め る こと と な っ た . 
その カリ キュ ラム 内 容 に つい て は , 教養 学部 の 内 部 で 昭和 33 年 以来 , 検討 と 準備 が 進め られ て き 
た . その 際 , 以下 の 諸点 が 前 提 と し て 考え られ た 

(1) 計算 機 の 基本 的 性 質 を 理解 する た め に は , プロ グラ ミン グ の 実習 が 不可 欠 で ある . 

(2) 100 人 以上 の 多 人 数 一 斉 教育 と な る か ら , パー ソナ ル ・ コ ンピュータ の 処理 能力 を 最大 限 に 
生か し た , LAN の も と で の 教育 を 基本 と する . 

(3) 単なる 計算 機 操作 法 や ある 特定 の プロ グラ ミン グ 言 語 の 修得 に と ど ま ら ず , 激しく 変化 し て 
いく で あろ う 計 算 機 や 情報 処理 に 関わ る 科学 ・ 技 術 情報 を , 学生 諸君 が 将来 に わた っ て 学習 ・ 
理解 ・ 利 用 ・ 評 価 し て いく 際 の 基盤 と な る 確か な 枠組 を 与 を る こと を 目標 と する . 

以上 の 観点 か ら , 大 学 1, 2 年 生 を 対象 と し た 理想 的 な 情報 処理 入門 教育 の 具体 的 内 容 を 考え る 
な ら ば , 次 の よう な 項目 が 挙げ られ る で あろ う . 

電子 計算 機 概 論 ( 作 動 原理 , 基本 機能 ・ ソ フト お よび ハー ドウ エア 上 の 基本 構成 デー タ の 
内 部 表現 等 ) 

b) ハー ドウ エア 機器 の 操作 法 お よび シス テム ソフ トウ エア 機能 (OS, DOS, EDITOR, FILE 
操作 等 ) の 利用 法 

計算 機 言 語 の 文法 要 説 (PASCAL,、 FORTRAN, C, BASIC 等 の うち の いずれ か ーー つ ) 

d) 基本 的 算法 (繰返し 計算 と その 収束 性 , 連続 量 の 離散 化 と 誤差 , ソー ティ ング の アル ゴリ ズ 

ム , グラ フィ クス の 初歩 等 ) 

e) 応用 情報 処理 概論 (図形 処理 , 信号 処理 , 数 式 処理 , パタ ー ン 認 識 。 人 工 知能 等 ) 
f) 情報 処理 の 科学 概論 (計算 可能 性 , 問題 処理 の 複雑 さき , NP 完全 性 等 の 理論 ) 

た だ し , 初等 中 等 教育 に お いて 計算 機 教 育 が 正規 の 授業 と し て は 行わ れ て いな い 現 状 で , 毎週 2 
時 間 , 1 個 学期 15 週 ) で 完了 と いう 程度 の 入門 教育 と すれ ば , (3) 一 (d) を 講義 と 演習 を 通じ て バラ 
ンス 良く 体得 し て も ら う だ け で 手 一 杯 と な り そ う で ある . が GPS (c) な ど が 取 
り 入 れ ら れる よう に な れ ば , 大 学 教養 課程 に お ける 教育 も (一 (f) へ と シフ トミ させ て いく こと に な 
ら ゆ 。 
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本 書 は , 前 記 (1) 一 (3) の 前 提 の 上 に 立っ て , 大 学 初 年 度 の 理科 系 学生 に 対す る 教科 書 と し て , 上 
述 の (4 一 (d) の 部 分 を 1 民 に まとめ た も の で ある . PASCAL プロ グラ ミン グ に 関す る 優れ た 入門 
Rit2T 人 SI 
し か し , 東京 大 学 教育 用 計算 機 セ ンタ ー 業 務 委 員 会 か ら 強 い お 勧 め を いた だ いた こと , お よび , 前 
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記 (a) 一 (d) を 1 民 に まとめ る こと が で きれ ば , 入門 教育 を 受け る 学生 諸君 は , 従来 の よう に 操作 
書 ・ 文 法 書 ・ そ の 他 の 教科 書 等 を 何 冊 も 参照 する 必要 も な く , より 手軽 に か つ 能 率 的 に 学習 が で き 
る の で は な いか と 考え た こと , が 動機 と な っ て 敢えて 執筆 に 踏み 切っ た 次 第 で ある . 

本 書 の 第 1 部 (1 一 3 章 ) に お いて は , 計算 機 に 関す る 一 切 の 予備 知識 を 前 提 と せ ず に Pascal 言語 
に よる プロ グラ ム 作 成 と その 実行 に 必要 な 入門 事項 を 述べ た . 第 IT 部 の 4, 5, 6 章 は た が い に は ほ 
ぼ 独 立 の も の と 考え て よく , 授業 時 間 数 や 計算 機 実習 に 費やす こと の で きる 時 間 数 に 合わ せ て 適宜 
取捨 選択 が 可能 で ある . また , 本 書 は 一 応 理科 系 学生 用 教科 書 と し て 構想 され て いる が , 第 4 章 の 
ーー 部 を 統計 処理 や 言語 処理 の 課題 に 置き 換え る こと に よっ て , 文科 系 学生 用 教科 書 と し て も 無理 な 
く 利 用 で きる よう 配慮 し た つも り で ある . 

な お 本 書 の 執筆 に あたっ て は マイ クロ ソフ トウ エア アソ シェ エイ ツ 社 の TURBO Pascal シス テム 
を 使用 し , その プロ グラ ミン グマ ニュ アル を 参照 し た . 執筆 分 担 は , 1, 2 章 が 永野 三郎 , 3 6 章 
お よび 付録 が 長島 忍 , 4 5 章 が 吉村 伸 で ある . また 例題 の プロ グラ ム 作 成 に は 東京 大 学 大 学院 総 
合 文化 研究 科 広 域 科学 専攻 の 松原 敦 君 , 牧野 淳一 郎 君 の 協力 を 得 た . 執筆 分 担 者 は 互い に 連絡 を 取 
り , まとまり を 良く する よう 有 努め た が , 必ず し も ゃ 充分 と は 言え な い 面 も あろ うか と 恨 れ て いる . 大 
方 の 御 批判 , 御 叱責 を 得 て 改 良し て いく こと が で きれ ば 幸い で ある . 


本 書 作成 の 機会 を 与 を て くだ さっ た 東京 大 学 教育 用 計算 機 セ ンタ ー 業 務 委 員 会 . な か ん ずく 
PASCAL の 採用 と 本 書 の 執筆 を 強力 に 勧め て くだ さっ た 岡部 洋一 (前 ) セ ンタ ー 主 任 お よび 吉澤 昭 
宣 ( 元 ) 業務 委員 長 に 感 席 し た い . また 本 書 に 盛り 込ま れ た 情報 処理 入門 教育 の カリ キュ ラム を 長 時 
間 の 検討 の 末 ま と め 上 げた うえ , 本 書 の 第 I 部 に つい て 初 校 に 目 を 通し , 有 符 な 助言 を くだ さっ た 
東京 大 学 教養 学部 「 情 報 ・ 図 学 教室 」 の 同僚 諸兄 , な ら び に 遅れ が ちな 筆者 ら の 原稿 を 辛抱 強く , 
寛容 に 待ち 続け て くだ さっ た 上 , 何かと 論 走 し て くだ さっ た 東京 大 学 出版 会 の 小池 美樹 彦氏 に 感謝 
の 意 を 表し た い . 


1987 年 3 月 
執筆 者 代表 
永 野 三 人 郎 


改訂 た あたっ て 


本 書 が 刊行 され て か ら 5 年 が 経過 し た . この テキ スト は , 東京 大 学 教養 学部 に お いて , 大 学 1 年 
生 を 対象 と し た 情報 処理 基礎 教育 が 正規 の 授業 科目 と し て 開設 され る の に 合わ せ て 刊行 し た も の で 
あっ た . プロ グラ ミン グ 演 習 を 含む 情報 処理 の 基礎 教育 に お いて は , プロ グラ ム の 作成 ・ 編 集 ・ 実 
行 の 各 段 階 で , 使用 する 計算 機 シ ステ ム の ハー ドウ ェ ア お よび ソフ トウ ェ ア に 依存 する 部 分 も 少な 
く ない. 本書 に お いて は , 近年 機能 向上 が 著しく , 広く 普及 し て いる パー ソナ ルコ ンピュータ を 使 
用 し , か つ プ ログ ラミ ング 言語 と し て は MS-DOS 上 の TURBO Pascal を 使用 する も の と し て , 
パソ コン の 操作 法 , TURBO Pascal シス テム の 利用 法 , な ら び に プロ グラ ミン グ 言 語 の 文法 , 基 
礎 的 な アル ゴリ ズム 等 の すべ て を 1 冊 の 本 に まとめ よう と し た も の で あっ た . 

周知 の ご と く , パソ コン の オペ レー ティ ング シス テム や , その 上 の 言語 処理 シス テム の 機能 と そ 
の 利用 法 は 年 々 変化 し て いく . 多く の 場合 に 新しい バー ジョ ン は 古い バー ジョ ン と 両立 し 得る 形 に 
作ら れる か ら , ソフ トウ ェ ア 側 の 変更 の 度 に 本 書 の 内 容 を 書き 改め る こと は 必ず し も 必要 不可 欠 で 
は な い . し か し , 一 つ は , TURBO Pascal が 提供 する 機能 と その 利用 法 に 関す る この 3 年間 の 変 
化 が きわ め て 大 きい こと , いま 一 つ に は , 3 年間 の 教育 実施 経験 と , 旧 著 を 使用 され た 方 々 の 御 助 
言 を で きる 限り 取り 入れ た いと 考え た こと か ら , 大 幅 な 改訂 を 行う こと と し た . 改訂 の 主要 な 点 は 
以下 の と お り で ある . 

(1) TURBO Pascal の 操作 法 に 関す る 説明 (第 2 章 ) は Ver. 5 を 標準 と し た . 

(2) プロ グラ ミン グ 有 入門 教育 の 基礎 と な る 第 3 章 は , ほとん ど 全 面 的 に 書き 改め る と と も に , 
各 節 ご と に 練習 問題 を 付け 加え て 自習 の 助け と し た . 

(3) 東京 大 学 教養 学部 で は , 文科 系 ・ 理 科 系 を 問わ ず 1 年 次 に プロ グラ ミン グ 演 習 を 含む 情 
報 処理 基礎 教育 を 行い , 理工 系 学部 学科 進学 予定 者 に 対し て は , 2 年 次 に 3 次 元 図形 処理 
(ソリ ッ ド モデ リン グ ) を 中 心 と する コン ピュ ー タ グラ フィ ックス 教育 を 施し て いる . 本 書 
に よっ て , 本 格 的 な コン ピュ ー タ グラ フィ ックス 教育 の テキ スト を 兼ね る に は 無理 が ある 
の で , 本 書 の 内 容 は 1 年 次 の 使用 の み に 限 定 し , 第 6 章 の グラ フィ ックス の 部 分 は Oraph 
ユニ ッ ト の 紹介 と 平面 図形 の 取り 扱い に 限定 し た . 

(4) TURBO Pascal Ver. $ 以降 で は , Graph ッ ト の 他 に も , Crt ユ ニッ ト や Dos ユニ ッ 
ト な ど , 使い 勝手 の よい 機能 が 提供 され て いる . これ ら に つい て も 第 6 章 で 簡単 に 紹介 す 
る と と も に , 付録 に 要点 を まとめ て 示し た . 

この 版 の 序 も 私 が 書か せ て いた だ く こ と に な っ た が , 改訂 作業 の 殆ど すべ て は 共著 者 の 長島 忍 氏 
が 引受 られ た も の で あり , 同氏 の 労 を 謝 し た い . 


1992 年 2 月 
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第 | 章 


プロ グラ ミン グ 入 門 


1.1 電子 計算 機 の 概要 


計算 機 に 対す る 一 連 の 作業 指示 を プロ グラ ム と いう . また , これ ら プ ログ ラム の 集まり を その 上 言 
算 機 の ソフ トウ エア と 総称 する . これ に 対し て , 物理 的 な 装置 と し て の 計算 機 シ ステ ム を 構成 する 
電子 部 品 や 機械 装置 を ハー ドウ エア と 呼ん で いる . 本 書 の ほとん どす べ て は , 計算 機 を 利用 する 立 
場 か ら , それ に 必要 な プロ グラ ミン グ に 関わ る 入門 書 で ある が , ハー ドウ エア の 基本 構成 を わき ま 
えて お く こ と は , 以後 の 計算 機 利 用 に 際 し 有益 で あろ う . この 節 で は 計算 機 の ハー ドウ エア お よび 
ソフ トウ エア 上 の 基本 構成 に つい て 概説 する . 


(4) ハー ドウ エア の 基本 構成 

ー ロ に 計算 機 言 っ て も , 現在 で は 1 個数 千 円 の マイ クロ プロ セッ サ か ら , 1 台数 十 億 円 も する 
汎用 大 型 計算 機 ま で , 価格 や 性 能 (処理 速度 等 ) に お いて 10" 倍 も の 差 が ある ほど に , 規模 や 性 能 の 
異な る 計算 機 群 が ある . 


中 央 処理 装置 
(CPU) 


出力 装置 
(output 
device) 


入力 装置 
(input 
device) 


記憶 装置 


(memory) 


…・- の mecokom の つの 


図 1.1 ハー ドウ エア の 基本 構成 
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し か し , われ われ が 通常 身近 で 利用 する 計算 機 の ほとん ど は , 図 1.1 の よう な ハー ドウ エア 構成 
に な っ て いる と 考え て 差し 支 を ない. すなわち , 計算 機 シ ステ ム の 多く は , 入力 装置 , 出力 装置, 
中 央 処理 装置 (Central Processing Unit、 以下 CPU と 略記 する ) お よび 記憶 装置 の 4 つの 部 分 か ら 
な っ て いる . 

入力 装置 は . プロ グラ ム や プロ グラ ム の 実行 に 必要 な デー タ 等 の 情報 を 計算 機 に 与え を る た め の も 
の で , われ われ 人 間 が 直接 計算 機 と 対話 する 場合 に は , 通常 . タイ プラ イタ と 類似 し た キー ボー ド 
が 用 いら れる . より 高度 な 利用 で は , 後述 の 磁気 ディ スク や 磁気 テー プ , 文字 や 図面 ・ 画 像 の 読み 
取り 装置 , 音声 入力 装置 . TV カメ ラ , 各種 セン サ 等 , さま ざま な も の が 人 入力 装置 と し て 用 いら れ 
る . 

出力 装置 は 逆 に , 計算 機 が 生成 し た 情報 を 外部 に 伝え ん る た め の も の で , われ われ が 当面 利用 する 
出力 装置 と し て は , TV 画面 に 類似 し た CRT(Cathode Ray Tube) ディ スプ レイ 装置 が ある . その 
他 , 各種 の プリ ンタ や プロ ッ タ , 保存 用 記憶 媒体 等 が 用 いら れる . 

入力 情報 を 保持 し , 各種 の 処理 の 経過 や 中 間 結果 を 書き 込ん で お く た め に , 計算 機 に は 記憶 装置 
が 不可 欠 で ある . 記憶 装置 自身 は , 単に 、 一 連 の 番号 (番地 ) が 割り 振ら れ た 記憶 域 か ら な っ て お り 
それ ぞ れ に 番地 を 付き され た 記憶 域 の 内 容 自体 は われ われ が 黒板 に チョ ー ク で 文字 や 数 値 を 書い た 
り 消 し た りす る よう に , 必要 に 応じ て CPU か ら の 指示 で 情報 を 書き 込ん だ り 消 し 去っ た りす る こ 
と が で きる . 

記憶 装置 や 中 央 処理 装置 な ど 計 算 機 の 内 部 で は , すべ て の 情報 は 2 進数 字 の 列 で 表現 され て いる 
と 考え る こと が で きる . すなわち , 計算 機内 部 に お ける 情報 の 最小 単位 は , 数 学 的 に は 0 か また は 
1 の いずれ か の 値 を と る 2 進数 字 1 桁 で も り , これ を bit(binary digit) と 呼ぶ . 物理 的 に は , 記憶 
装置 や 中 央 処理 装置 の 基本 構成 要素 で ある 記憶 素子 や 論理 演算 素子 は , 電流 が 流れ て いる か いな い 
か , ある い は 電圧 が か か っ て いる か いな いか , また は 磁気 化 さ れ て いる か いな いか , な ど 2 つ の 状 
態 の いずれ か 一 方 の み を と る . この 2 状態 の いずれ か 一 方 を 0 他方 を 1 と 考え れ ば , 2 進数 字 1 桁 
に 相当 する わけ で ある . この よう に , 2 状態 の いずれ か 一 方 の み を と る よう な 構成 と な っ て いる の 
は , 装置 の 信頼 性 と か 電子 回 路 の 構成 の し や すさ な ど , どちら か と いえ ば 工学 的 な 理由 に よる . 

と ころ で , 1bit で は 2 つの 状態 の いずれ か ( 値 0 を と る 状態 か 値 1 を と る 状態 の いずれ か ) し か 
区 別 で き な い . より 多く の 状態 の いずれ で ある か を 区 別 す る に は (すなわち , より 複雑 な 情報 を 扱 
うに は ) 2 つ 以 上 の bit を 組み 合わ せ た bit 列 を 用 いる . た と えば , われ われ が 日 常 多用 する 文字 や 
数 字 な ど と の 対応 か らい えば , いつ も bit 単位 で 考え る より も いく つか の bit の まとまり を 扱う 方 
が 実際 的 で 便利 で ある . そこ で 8bit を 1 まとめ に し て 1 Byte と 呼ん で いる . ヵ bit で は 2 種類 の 
状態 また は 情報 を 区 別 で きる か ら , 8bit で は 256 種類 の 記号 や 文字 , 状態 な ど を 区 別 す の る こと が 
で きる . 更に いく つか の Byte を 1 まとめ に し て , より 大 き な 情 報 の 単位 と し (標準 2 一 16 Byte) , 
これ を word と 呼ぶ . 記憶 域 に 割り 付け られ る 番地 は , Byte ご と で あっ た り , word ご と で あっ た 
り , 個々 ん の シス テム に よっ て 異な る が , 当面 ,。 われ われ は その 詳細 に 立ち 入る 必要 は な いで あろ う . 
ここ で 重要 な こと は , われ われ 人 間 は 10 進数 字 や , 英文 字 の アル ファ ベッ ト , カタ カナ , ひら か 
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な , 漢字 , 各種 の 数 学 記号 な ど を 用 いる が , 計算 機 の 内 部 で は これ ら の すべ て が , 何 種類 か の 互い 
に 異な る 法則 に 従っ て 2 進数 字 の 列 に 変換 され て , 記憶 され 処理 され て いる と いう 事実 で ある . た 
と えば , 計算 機 の 内 部 で 、 ある 1 Byte 分 の bit 列 の 中 味 が 

01000001 

で あっ た と し て , これ が JIS (Japan Industrial Standard) に 基づく 符号 化 法 に よる 文字 で ある と す 
れ ば , 英文 字 の 「A」 を 表わし , 整数 で ある と すれ ば 数 値 「65」 を 表わす . 実数 で ある と すれ ば , 
小数 点 の 位置 を どこ に 置く と 考え を る か な ど , 別 の 取り 決め が 要 る . し た が っ て , ある 特定 の ビッ ト 
列 が 何 を 表わし て いる か , ある い は 何 を 表わし て いる と 解釈 する か に よっ て , その ビッ ト 列 が 表 わ 
す 情 報 の 実質 的 な 意味 内 容 が 異な っ て くる の で ある . 幸い プロ グラ ム を 作る われ われ 人 間 は , 上 記 
の 事実 さき を わき まえ て いれ ば , 今後 , 個々 の ビッ ト 列 その も の き や 符 号 化 法 に 関し て その 詳細 に 立ち 
入る こと は , 特別 の 場合 を 除い て 必要 で な い . そう し た 面倒 な こと は 当然 計算 機 の 側 で 処置 すべ き 
こと だ か ら で あ る . 

記憶 装置 は 通常 何 段階 か の 階層 状 の 構成 と な っ て いる . いわ ゆる 主 記憶 装置 は , 中 央 処理 装置 と 
直結 し て いて , ある プロ グラ ム が 実行 きれ る と き な ど , 両者 の 間 で 頻繁 に 情報 の や り と り が 行なわ 
れる . し た が っ て CPU か ら 高 速 に アク セス で きる 比較 的 小 容量 の 記憶 装置 で ある . も っ と も , 近 
年 の LSI, 超 LSI(VLSI) 技術 の 進歩 に よっ て , 大 型 の 計算 機 シ ステ ム で は 数 十 MByte(1 kByte は 
1024 Byte,. 1 MByte は 1024 kByte) を 越え る 主 記憶 容量 を 持つ も の も 少な く な い . 

主 記憶 装置 の ほか に , 大 部 分 の 計算 機 で は , 2 次 記憶 装置 と か 補助 記憶 装置 と 呼ば れる 記憶 装置 
を 持っ て いる . プロ グラ ム や デー タ を 長 時 間 保 存 し た り , 大 き な 記 憶 域 を 必要 と する プロ グラ ム の 
実行 に 際 し て 主 記憶 の み で は 容量 が 不足 する 場合 に , 当面 必要 な 部 分 だ け を 主 記憶 上 に 置き , そう 
で な い 部 分 は 補助 記憶 の 方 に 置い て お いて , 適宜 人 れ 替 え を 行なう な どの 使い 方 が 一 般 的 で ある . 
パー ソナ ル ・ コ ンピュータ や ワー クス テー ショ ン で は フロ ッ ピ ー デ ィ ス ク や 小型 の ハー ド (固定 ) デ 
ィ ス ク が 補助 記憶 装置 と し て 広く 用 いら れ て いる . 大 型 の 計算 機 シ ステ ム で は 大 容量 の 磁気 ディ ス 
ク ゃ や 磁気 ケー プ な ど が 用 いら れる . 

中 央 処理 装置 (CPU) は 計算 機 の 心臓 部 に 相当 する 部 分 で ある . 入出 力 装置 や 記憶 装置 と CPU の 
間 の 情報 の 流れ を 制御 し , プロ グラ ム の 指示 に 従っ て 一 連 の 命令 を 実行 し 計算 を 行なう の も CPU 
で ある . し か し , CPU が 直接 実行 する こと の で きる 命令 群 は , 比較 的 単純 な こと ば か り で ある . 

CPU で 行なわ れる 命令 は , た と えば 「N1 番 地 に 入っ て いる 数 値 を N 2 番地 に 入っ て いる 数 値 
に 足し あわ せ , 結果 を N3 番 地 に し まえ 」 と か 「 入 力 装置 か ら 文字 を 1 字 読 み 込 み , それ を 0 と 
1 の 数 字 列 に 変換 し て N4 番地 に 置け 」 と いっ た 類 の も の で ある . 加算 の 他 に も ゃ も , 減算 , 乗算 , 
除算 な どの 四則 演算 が 行 な を る ほか , ある 記憶 域内 の 情報 を 他 の 場所 へ 移し 替え る , 2 進数 字 の 列 
を 通常 の 文字 や 数 値 に 変換 し て 出力 する , 一 連 の 命令 の 順序 を 調整 する な どの 機能 も 持っ て いる . 
し か し それ 以上 の も の で は な い . 

この よう に 単純 な 命令 し か 実行 で き な い に も か か わら ず 計 算 機 が 有効 に 利用 され て いる の は , そ 
の 記憶 容量 が 膨大 で , 処理 速度 が 極め て 速い こと , 計算 が 正確 で や る こと , そし て また われ われ が 
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作る プロ グラ ム に よっ て は , この よう な 単純 な 命令 の 組み 合わ せ に よっ て も 非常 に 複雑 な 計算 や 処 
理 が で きる こと , な ど に よる . 

な お , 現在 の 計算 機 で は . プロ グラ ム 自 身 も 記憶 域 の 中 に 保持 きれる. CPU は 記憶 域 の 中 に あ 
る プロ グラ ム を 順次 読み 出し て は , その 指示 に 従っ て 一 連 の 計算 (情報 処理 ) を 行なう . し た が っ て , 
記憶 域 は プロ グラ ム の 保持 と ,. その プロ グラ ム の 実行 に 必要 な デー タ の 記憶 の 両方 の 目的 に 利用 さ 
れる . 


(b) ソフ トウ エア の 基本 構成 

計算 機 は . ハー ドウ エア と し て の 電子 機械 装置 その も の だ け で は , 何 の 機能 も 果たす こと が で き 
な い . 計算 機 を し て 有効 に 目的 に 沿っ た 仕事 を 実行 きせ る に は , その た め の ソ フト ウエ ア が 不可 欠 
で ある . ソフ トウ エア は プロ グラ ム の 集まり で あっ て 目 に 見 える も の で は な い が , 計算 機 シ ステ ム 
の 使い や すさ や 効率 の 良き な ども ソフ トウ エア に 依存 する と ころ が 大 きい 

計算 機 の ハー ドウ エア シス テム が 大 型 化 ・ 高 速 化す る に つれ て , ソフ トウ エア も また , その 時 代 
の 要請 に 応 を る べく 著しい 進歩 ・ 発 展 を 遂げ て きた . も っ と も , ハー ドウ エア の 進歩 に 比べ て ソフ 
トウ エア の 進歩 は 遅れ て いる と 言わ れる . た と えば ハー ドウ エア と し て の 記憶 素子 や 論理 素子 が 過 
去 40 年 の 間 に , 真空 管 半 導体 IC 一 LSI+VLSI, と 進化 する に つれ て , 各 時 代 の 先端 的 コン ピ 
ュー タ の 最高 計算 速度 は , 6 一 7 年 ご と に 10 倍 程度 ずつ 速く な っ て き て お り , コス ト ・ パ フォ ー マ 
ンス や 信頼 性 も 飛躍 的 に 改善 きれ て いる の に 対し , 複雑 化し 巨大 化し た ソフ トウ エア の 信頼 性 や 生 
産 性 は それ ほど 急速 に 上 昇 し て お ら ず , ソフ トウ エア の 開発 が 需要 に 応じ 切れ な く な る の で は な い 
か , と の 危機 感 も 根強く 存在 し て いる . ソフ トウ エア の 生産 性 を 高め る た め の き さま ざま な 研究 も 各 
方 面 で 進め られ て いる が , 元 来 ソフ トウ エア の 開発 や プロ グラ ム の 作成 は 人 間 の 知 的 活動 に 頼ら ざ 
る を えな い 面 も 多く , 大 幅 な 自動 化 や 省力 化 が 急速 に 実現 きれ る と は 考え 難い . し か し , 幸い 近年 
で は , ハー ド お よび ソフ ト の 両面 で 手軽 に 計算 機 が 利用 で きる 環境 が 整備 され て き て お り , 計算 機 
の ユー ザ 数 は 急速 に 増大 し つつ ある . 適切 な プロ グラ ミン グ 教 育 が 広範 囲 に 施 き れ , 誰 も が わか り 
や すく 質 の 良い プロ グラ ム を 書く こと が で きる よう に な れ ば , 社会 全体 と し て の ソフ トウ エア の 生 
産能 力 は 今後 益々 上 昇 し て いく も の と 期待 され る . 

さき さて, 計算 機 ス ー ザ の 立場 か ら 見 る 場合 に は , ソフ トウ エア の 基本 構成 を 図 1.2 の よう に 分 類 し 
て 考え る と わか りや すい で あろ う . 

オペ レー ティ ング シス テム (OS) は , 計算 機 を 有効 に 作動 きせ る た め に シス テム 全体 の 制御 ・ 管 
理 ・ 監 視 等 を 行なう プロ グラ ム で , ハー ドウ エア と 最も 密 着 し た 部 分 で ある . 大 型 の 汎用 計算 機 で 
は 多数 の ユー ザ が これ を 共用 する の が 普通 で ある か ら , 多種 多様 な ユー ザ か ら の 要求 を 効率 良く 処 
理 す る た め の ジ ョ ブス ケ ジ ュ ー リ ング , 記憶 領域 の 割り 付け と 保護 , 補助 記憶 装置 と の 連繋 他 の 
シス テム や 入出 力 装置 ・ 端 末 等 と の 間 の 通信 制御 , 緊急 度 の 高い タス ク の 割り 込み 処理 , 異常 事態 
処理 等 々 , OS の 仕事 は 極め て 多岐 に わた る . 

言語 プロ セッ サ は , われ われ 人 間 が 日 常用 いる 言葉 に 比較 的 近い プロ グラ ミン グ 用 の 言語 ( 高 レ 
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ジア ドキ エア 


オペ レー ティ ング ・ シ ステ ム 

各種 言語 プロ セッ サ 

サー ビス ユー ティ リティ ・ プ ログ ラム 
ソフ トウ エア ・ ツ ー ル 


数 値 計算 プロ グラ ム 
確率 ・ 統 計 計 算 プ ログ ラム 
図形 処理 プロ グラ ム 


ーー 


応用 ソフ トウ エア 


ト ワー ド ・ プ ロ セ ッ サ 
| 事務 計算 プロ グラ ム 
に 

エク スパ ー ト シズ テム 
トー 通信 支援 シス テム 
教育 支援 シス テム 


ユー ザ 開 発 ソ フト ウエ ア 


ユー ザ ・ プ ログ ラム 群 


図 1.2 ソフ トウ エア の 基本 構成 


ベル 言語 ) で プロ グラ ム を 書き 計算 機 に 入力 し た と き , CPU が プロ グラ ム の 指示 どおり 直接 実行 で 

きる よう に , 高 レベ ル 言 語 を 2 進数 字 の 列 ( 機 械 語 ) に 翻訳 ・ 変 換 す る た め の ソ フト ウエ ア で ある . 
高 レ ベル 言語 と し て は Pascal の 他 に , 汎用 性 の 高い も ゃ の で は , C, FORTRAN, BASIC, COBOL, 
LISP, PROLOG 等 多種 の も の が ある . 

Pascal な どの 高 レ ベル 言語 で プロ グラ ム を 書い た 場合 , 一 つの 文 (statement) に は , CPU で 直接 
実行 で きる 簡単 な 命令 (instruction) より は る か に 複雑 な 処理 内 容 を 含む こと と な る か ら , その 内 容 
を 簡単 な 命令 群 の 組み 合わ せ に 翻訳 し な お す 必 要 が ある . 計算 機 が 直接 理解 する こと の で きる 言語 
は 低 レ ベル 言語 と 呼ば れる . 1 例 を 挙げ れ ば 

MOV AX,N1 
ADD AX.N2 
MOV N3.AX 
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に よっ て 「 記 憶 域内 の N1 番地 に 入っ て いる 数 値 を N 2 番地 に 入っ て いる 数 値 に 足し あわ せ , 結 
果 を N3 番 地 に し まえ 」 と いう 意味 に 用 いる こと が で きる (ここ で AX は CPU 内 に 設け られ た レ 
ジス タ と 呼ば れる 置 数 器 を 指す ). この よう な 表記 は アセ ンプ ブリ ー 言 語 と 呼ば ん て いる . これ を 
CPU に 実行 きせ る に は , や は り 2 進数 字 の 列 に 翻訳 する 必要 が ある . これ は 各 CPU に つい て と 
りき め が あ り , それ に 従っ て 2 進数 字 の 列 へ の 符号 化 が 行なわ れる . それ が 機械 語 で ある . 

高 レ ベル 言語 を 機械 語 に 翻訳 する プロ グラ ム は コン パイ ラ (compiler) と 呼ば れる . コン パイ ラ は 
し た が っ て 一 風 変 わ っ た プロ グラ ム で あっ て , ( 高 レ ベル 言語 で 書か れん た ) プロ グラ ム を 入力 と し , 
出力 も (機械 語 に 翻訳 さん た) プロ グラ ム で ある . 混乱 を 避け る た め に 前 者 を ソー スプ ログ ラム , 後 
者 を オプ ジェ クト プロ グラ ム と 称し て 区 別 す る . 

サー ビス / ユ ー テ ィ リ ティ ・ プ ログ ラム に は , プロ グラ マ が ソー スプ ログ ラム や デー タ を 作成 す 
る 際 に , 能率 的 な 作業 を 支援 する た め の テ キス ト ・ エ ディ タ や , 複数 の オプ ジェ クト プロ グラ ム を 
1 本 に 結合 する リン ケー ジ ・ エ ディ タ , メモ リー に オプ ジェ クト コー ド を ロー ド す る ロー ダ な ど が 
含ま れる . この うち われ われ に 最も 関係 が 深い の は テキ スト エディ タ で あっ て , 以後 単に エディ タ 
と いえ ば テキ スト エディ タ を 指す も の と し よう . 


さて , 高 レ ベル 言語 で 書か れん た プロ グラ ム が あっ た と し て , この プロ グラ ム を 計算 機 に 実行 させ 

る に は , 次 の よう な 手順 を 踏む こと に な る . 

(1) まず キー ボー ド か ら ソ ー ス プロ グラ ム を 計算 機 に 入力 する . その 際 , エディ タ を 用 いて プロ 
グラ ム の 編集 や 訂正 を 行なう こと が で きる . 

(2) 入力 が 終了 し た ら , 使用 し て いる プロ グラ ム 言 語 の コン パイ ラ に よっ て , ソー スプ ログ ラム 
を 機械 語 に 翻訳 させ る . この 段階 で は ソー スプ ログ ラム は 命令 の 指示 書 と し て 扱わ れ て いる の 
で な く , 単に 機械 語 に 翻訳 すべ き 文 字 や 記号 の 列 と し て 扱わ れ て いる に 過ぎ な い . コン パイ ル 
が 終了 する と コン パイ ラ の 出力 は 2 進数 字 の 列 と し て の オブ ジェ クト プロ グラ ム と な る . 

(3) この オプ ジェ クト プロ グラ ム を 実行 きせ る に は , 計算 機 に 「 実 行 」 の 指示 を 与え る . 

(4) 命令 の 実行 に 必要 な 通常 の 意味 で の デー タ を , どこ か ら か (た と えば キー ボー ド か ら ) 与 える 


以上 の 手順 を 概念 図 に 示す と 図 1.3 の よう に な る . こう し た 何 段 階 か の 仕事 を 1 つの 計算 機 シ ス 
テム で スム ー ズ に 実行 で きる の は , オペ レー ティ ング シス テム の も と で 整然 と 各種 の 処理 が 実行 き 
れ て いく か ら で あ る . 


(cO パー ソナ ル ・ コ ンピュータ 

近年 , パー ソナ ル ・ コ ンピュータ の 著しい 機能 向上 に 伴っ て , 計算 機 の 入門 教育 に パー ソナ ル ・ 
コン ピュ ー タ が 利用 きれ る ケー ス が 激増 し て いる . 本 書 も , それ を 前 提 と し て いる の で パー ソナ 
ル ・ コ ンピュータ に 関す る 基本 的 事項 を 概説 し て お く . 

われ われ が 見 開 す る コン ピュ ー タ に は さま ざま な 呼称 が 付 さ ん れ て いる . 計算 機 シ ステ ム の 規模 と , 
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1.3 プロ グラ ム 実 行 の 手順 


その 利用 目的 (主たる 機能 ) 等 を 勘案 し て , マイ クロ ・ コ ンピュータ , ファ ミリ ー・ コ ンピュータ , 
パー ソナ ルコ ンピュータ , ミニ ・ コ ンピュータ ,。 オ フィ ス *・ ココ ンピュータ, スー パー エミ ニ ・ コ 
ピュ ー タ , 汎用 中 型 ・ 大 型 コ ンピュータ , スー パー・ コ ンピュータ , な ど と 分 類 さ れる . これ ら の 
間 に , 規模 や 性 能 上 の 明確 な 分 類 基準 が 定義 S8 れ て いる わけ で は な く , マイ コン と ファ ミコ ン , あ 
る い は ミニ コン と オフ コン 等 の 間 に , し ば し ば 規模 や 性 能 の 逆転 も あり うる . 

計算 機 の 基本 構成 と し て , これ まで に (4) お よび (b) 項 で 述べ て きた 内 容 は , これ ら の コン ピュ ー 
タ 群 の 大 部 分 に 共通 し て いる . た だ , 使用 目的 に 応じ て CPU の 処理 速度 , 主 記憶 容量 , 補助 記憶 
装置 の 規模 と 種類 , 情報 通信 の 速度 や 能力 . オ ペレ ー テ ィング シス テム の 機能 と 規模 . 主として 利 
用 きれ る ソフ トウ エア , な ど が それ ぞ れ 大 幅 に 異な っ て いる わけ で ある . 

さき さて, IC(Integrated Circuit, 集積 回 路 ) や LSI(Large Scale Integrated Circuit, 大 規模 集積 回 路 ) 
技術 の 進歩 に 支 を られ て , 1970 年 代 か ら 電 子 論理 演算 に よる 演算 機構 を 数 ミリ 四方 の シリ コン チ 
ッ プ 上 に 組み 込ん だ マイ クロ プロ セッ サ が 実用 化 さ れ , 各 方 面 で 利用 きれ る こと と な っ た . 現在 実 
用 きれ て いる マイ クロ プロ セッ サ に は 4 ビッ ト , 8 ビッ ト , 12 ビッ ト , 16 ビ ッ ト , 32 ビッ ト な ど 
の も の が あり , 小さ いも の は クー ラー や エア コン , 自動 車 の 燃料 制御 装置 ,。 オー ディ オ 機 器 等 々 に 
組み 込ま れ て 広く 利用 され て いる . 

この マイ クロ プロ セッ サ を CPU の 一 部 と し て 使用 し , メモ リー や 入出 力 装置 を 備え た , ある 程 


ンジ 
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度 汎用 性 の ある コン ピュ ー タ を パー ソナ ル ・ コ ンピュータ と いう . その 際 , CPU で の 演算 や , 
CPU と 記憶 装置 お よび 入出 力 装置 の 間 の デー タ 転 送 を 何 ビ ッ ト ず つ 同 時 に 行なう か に よっ て , 8 
ビッ ト , 16 ビッ ト あ る い は 32 ビッ ト の パソ コン が あり , 当然 多 ビ ッ ト の も の ほど ハー ドウ エア 上 
の 機能 は 高い . 現在 の 主流 は 16 ビット パソ コン で ある . この 場合 , マイ クロ プロ セッ サ と し て は 
イン テル (8086), モト ロー ラ (68000), ザイ ログ (Z8000) 等 , いずれ も 米国 の 企業 で 開発 され た も 
の の どれ か が 主として 使用 きれ て いる . 

パー ソナ ル ・ コ ンピュータ 用 ソフ トウ エア の 基本 を な す オ ペレ ー テ ィング シス テム と し て は , 16 
ビッ ト パ ソ コン の 場合 , MS-DOS, CP/M-86, XENIX の いずれ か が 採用 され る ケー ス が 多い . 本 
書 で は , 以下 , MS-DOS を 想定 し て いる . パソ コン の OS も いずれ は UNIX 系 の も の へ 次 第 に 移 
行 し て いく も の と 思わ れる が , 現状 で は MS-DOS の シェ ア が 圧倒 的 に 大 きい . 将来 , UNIX 系 に 
移行 する 場合 で も , MS-DOS に 慣れ て いる こと が プラ ス に こそ な れ , 無駄 や マイ ナス に な る こと 
は な いで あろ う . 

MS-DOS は 米国 Microsoft 社 が 開発 し た Disk Operating System で , 8086 系 の プロ セッ サ を 搭 
載 し た パー ソナ ル ・ コ ンピュータ 用 の オペ レー ティ ング シス テム で ある . パソ コン 上 で 利用 で きる 
言語 プロ セッ サ や 市 販 の 各種 アプ リケーション ソフ トウ エア の 多く は , OS の 諸 機 能 を 利用 する こ 
と を 前 提 と し て 作ら れ て いる . つま り 

パー ソナ ル ・ コ ンピュータ 十 オペ レー ティ ング シス テム 
で は じ め て ユー ザ の 各種 ソフ トウ エア が 利用 可能 に な る と 考え れ ば よい . 


図 1.4 は ソフ トウ エア の 階層 状 構 成 を 模式 的 に 示し た も の で ある . われ われ ユー ザ は , ハー ドウ 
エア に 最も 密着 し た 基本 ソフ ト た る オペ レー ティ ング シス テム の 上 で , エディ タ や 言語 プロ セッ サ 
を 用 いて ユー ザ プ ロ グラ ム を 作成 し 計算 処理 を 行なっ た り ,、 ある い は ワー ド プ ロ セ ッ サ や 各種 の 作 
表 ・ 作 図 用 等 の 応用 ソフ トウ エア を 用 いて 必要 な 作業 を 実行 する こと が で きる . 


エディ タ 言語 プロ 
モッ サ 


オペ レー テ チング シネ テム 


パーソ ナル ・ コ ンピュータ 


図 主 4。 パソ ゴ ッ 上 の ツタ ドウ エア 
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さき さて, 図 1.4 で 個々 人 の ユー ザ プ ロ グラ ム や その 実行 結果 . ある い は 応用 ソフ トウ エア を 用 いて 
行なっ た 各種 の 情報 処理 結果 や 中 間 デ ー タ な ど は , 各 人 の 所 有する フロ ッ ピ ー デ ィ ス ク 上 に 記録 保 
存 し て で おく こと に な る . フロ ッ ピ ー デ ィ ス ク に は , その 直径 が 3.5 イン チ ( マ イク ロフ ロッ ピー デ 
ィ ス ク ), 5 インチ (ミニ フロ ッ ピ ー デ ィ ス ク ), 8 イン チ ( 標 準 フ ロッ ピー ディ スク ) の も の が あり , 
現状 で は 5 イン チ の も の が 最も 普及 し て いる . また , 同じ 直径 で も , 使用 で きる 面 が 片面 (1) か 両 
面 (2) か , お よび 記録 密度 が 単 密度 (S), 倍 密度 (D), 高密 度 (HD) の いずれ で ある か の 違い に より 
多く の 種類 が ある . た と えば , 

1S は 片 面 単 密度 , 2D は 両面 倍 密度 , 2 HD は 両面 高密 度 

を 意味 する . 使用 する パソ コン の ディ スク ドラ イブ 装置 を 確認 の うえ , それ に 適合 する フロ ッ ピ ー 
ディ スク を 購入 する 必要 が ある . 

また フロ ッ ピ ー デ ィ ス ク は 磁気 ヘッ ド に よっ て 情報 を 記録 する を も の で ある こと , 比較 的 薄く て 和 柔 
ら か い 円 盤 で あっ て 決し て 強 に 作ら れ て いな いこ と に 留意 し , ほこ りゃ 磁気 か ら 遠 ざけ る な ど , 
取り 扱い に 注意 し な けれ ば な ら な い . 

な お , 新た に 購入 し た 情報 記録 用 の フロ ッ ピ ー デ ィ ス ク は , 使用 する パソ コン の オペ レー ティ ン 
グ シ ステ ム に 合わ せ て , それ ぞ れ 初期 化す る 必要 が ある . MS-DOS で は FORMAT と いう コマ ン 
ド を 用 いて ディ スク の 記録 形式 を 整え を る が , これ に つい て は 2.5 節 を 参照 され た い . 

最後 に , 計算 機 入門 教育 で 用 いら れる パソ コン は , それ ぞ れ 独立 し た 形 で 使用 (スタ ンド アロ ン 
使用 ) され る 場合 も あれ ば , パソ コン 間 に 通 信 回 線 を 張っ て いわ ゆる LAN(Local Area Network) 
を 組み , この LAN 内 に サー バ や スー パ バ イザ (多く の 場合 に これ ら も や は り パ ソコ ン ま た は ミニ 
コン ) を 組み 込ん で ,. さま ざま な 授業 支援 機能 を 持た せる こと も 広く 行なわ れ て いる . さら に , こ 
の よう な パソ コン 間 の LAN の 他 に , 汎用 の 大 型 計 算 機 を 装備 し, 、 こ れ に パソ コン を 接続 し て , パ 
ソコ ン と 大 型 計算 機 と を 仕事 の 内 容 に 応じ て 使い 分 ける な どの こと も 行なわ れ て いる . この 場合 , 
大 型 計算 機 の 方 を ホス ト ・ コ ンピュータ と か メイ ン フ レー ム な ど と 呼び . パソ コン の 方 は 端末 
(ター ミナ ル ) と か ワー クス テー ショ ン と 呼ぶ . ある 程度 の 入出 力 機能 と 処理 能力 を 持っ た 端末 を 
ワー クス テー ショ ン と 呼ぶ と すれ ば , ホス ト ・ コ ンピュータ に 接続 きれ た パソ コン は 立派 な ワー ク 
ステ ーション と いう こと に な る わけ で ある . 


も 2 プロ オラ ミル ダ と は 


プロ グラ ミン グ を 初め て 学習 する に 際 し て は , 学ぶ べき こと が ら が 少な く は な い . 学習 すべ き 
個々 の 内 容 を その も の は , 比較 的 単純 な こと で ある が , 単純 な こと で あっ て も それ ら が 重なり あう と , 
結構 複雑 で 難解 で ある か の よう な 印象 を 受け る か も し れ な い . そこ で , プロ グラ ミン グ と その 実習 
に 必要 な こと が ら の うち , 未知 の 部 分 を ある 程度 意識 的 に 整理 ・ 分 類 し て , 必要 以上 の 混乱 に 陥ら 
ぬ よ う 留 意 し た 方 が よい . 本 節 で は 計算 機 を 用 いた 問題 解決 の プロ セス に 関す る 簡単 な モデ ル を 考 
え , それ に 沿っ て , プロ グラ ミン グ や 計算 機 の 利用 が 自由 自在 に 行 な を る まで に 学習 すべ きこ と が 
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ら を 整理 し , 本 書 の 守備 範囲 と 内 容 の 構成 に つい て 解説 する . 


(&) 計算 機 を 用 いた 問題 解決 

計算 機 に よっ て 何ら か の 問題 解決 を は か ろう と する と き , その プロ セス を モデ ル 化 する と 図 1.5 
の よう に 考え る こと が で きる . 

この うち プロ セス Ai お よび A。 に 関し て は , どの よう な 分 野 の 問題 で あれ , われ われ 人 間 の 最 
も 高度 な 判断 力 と 洞察 力 を 必要 と する 部 分 で ある と いう こと が で きま る. 分野 に よっ て は モデ ル 化 ・ 
記号 化 ・ 定 式 化 な ど が 不可 能 な 問題 群 も 多い . 当然 , すべ て の 問題 が コン ピュ ー タ に よっ て 解け る 
わけ の も の で は な く , モデ ル 化 ・ 記 号 化 ・ 定 式 化 等 が ある 程度 行なえ る 場合 に . は じ め て 計算 機 を 
用 いて 問題 解決 を 試み あるこ と に な る . 

問題 を 発見 する 能力 , 問題 点 を 的 確 に 把握 する 能力 . さ ら に は その 問題 の り 本 質 に か か わる エッ セ 
ン シ ャ ル な 部 分 を つか み と っ た 良い モデ ル を 構築 する 能力 な ど は , 創造 性 や 独創 性 に 負う と ころ が 
大 きく , 広範 な 基礎 学力 の 積み 重ね の 上 に , ある 程度 の 研 希 を 経て は じ め て 身 に つく も の で あろ う . 
これ ら の 部 分 が 本 書 の 守備 範囲 の 外 に ある こと は 言う まで も な い . 本 書 は 図 1.5 の B 以下 の プロ 
セス に つい て 学ぶ た め の テ キス ト で ある . し た が っ て , 本 書 に 収め られ て いる 例題 は いずれ も , す 
で に モデ ル 化 な いし 定式 化 さ れ た 段階 に ある も の を 題材 に し て , B 以 降 の プロ セス を 実行 する た め 


ーー」 
問題 点 の 把 所 


AA 

モデ ル 化 ・ 記 号 化 

定式 化 

B 

処理 手順 の 決定 
ルト の 
RE 直 
E 


図 1.5 計算 機 に よる 問題 解決 の プロ セス 
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の 演習 課題 と し て 提示 され て いる . な お , 広い 意味 で の プロ グラ ミン グ と は B 以 降 の 全 プ ロ セ ス 
を さす と 考え て よい で あろ う . 


(b) アル ゴリ ズム 

プロ セス B は モデ ル 化 ・ 記 号 化 ・ 定 式 化 が 終わ っ た 後 , それ ら を 用 いて 広い 意味 で の 「 計 算 」 
を 行 な お うと する と き の 計 人 算 方 法 や 計算 手順 を 決定 する プロ セス で ある . 計算 機 に よっ て 問題 を 解 
く た め の 具体 的 手順 で あっ て アル ゴリ ズム と 呼ば れる . 簡単 な 問題 な ら , それ を 解く アル ゴリ ズム 
も 単純 な 命令 の 集まり で 記述 で きる . 問題 が 複雑 で 大 規模 な も の で ある 場合 に は , これ を より 単純 
で 小さ い 問 題 群 に 分 割 . その 上 で 個々 の 小 問題 に つい て の 詳細 手順 を 決定 し て いく と いう トッ プ 
ダウ ノン 方式 の 段階 的 記述 方 法 を と る の が よい . 本 書 で は , コン ピュ ー タ に よる 「 計 算 」 に か か わる 
基本 的 な アル ゴリ ズム を 第 3 章 や 第 TI 部 4 章 以降 で 例題 を 通じ て 紹介 する . 


(C)) ゲロ ダラ ミン シグ 

プロ セス C は , プロ セス B で 決定 し た アル ゴリ ズム に 沿っ て , 計算 機 に 実行 さき せる べき 具体 的 
計算 ・ 処 理 を , 計算 機 に 通用 する 言語 で 逐一 記述 する プロ セス で ある . これ が 狭い 意味 の プロ グラ 
ミン グ に ほか な ら な い . この た め に は 何ら か の プロ グラ ミン グ 言 語 を 一 つ は 知っ て いる 必要 が ある . 

問題 分 野 に 応じ し て, それ ぞ れ に 適し た プロ グラ ミン グ 言 語 が 用 いら れる . 科学 技術 計算 の 分 野 で 
は FORTRAN, PASCAL, C な ど , 事務 計算 で は COBOL, FORTRAN, BASIC な ど , 人 工 知能 
や 知識 工学 の 分 野 で は LISP, PROLOG, PASCAL, C 等 々 で ある . 

本 書 で は PASCAL (TURBO Pascal) を 採用 し た . その 理由 は , (1) 構 造 化 され た わか りや すい プ 
ログ ラム を 書く の に 適し た 言語 で ある こと , (2) 豊か な デー タ 型 や デー タ 構 造 の 指定 が で きる た め 
きま ざま な 情報 処理 の 分 野 に 適用 可能 で ある こと , (3) パー ソナ ル ・ コ ンピュータ 上 で の 処理 を 考 
える と まき, TURBO Pascal は 極め て 簡便 で 機能 も 十分 に 高く , 入門 教育 用 と し て も 最適 と 考え ら 
れる こと , (④⑭ 「 手 続き 」 や 「 関 数 」 の 再帰 的 呼び 出し が 可能 で ある こと (第 3.3 節 参 照 ), ($) より 
実用 的 な プロ グラ ミン グ 言 語 C や Ada へ の 移行 が スム ー ズ に 行 な を る こと , な ど に よる . 

PASCAL の 文法 や ヤ デ ー タ 構造 に 関し て は , 本 書 の 1.3 節 で その 初歩 的 な 例 を , 第 3 章 で 基本 文 
法 を , 第 4 章 以 降 で は 実用 的 な 文法 や デー タ 構 造 の 利用 法 を ., それ ぞ れ いずれ も 例題 を 通じ て 述べ 
る . 


操 作 法 

プロ セス D で は プロ グラ ム を 計算 機 に 入力 する . これ 以降 に つい て は , すでに 1.1 節 (b) 項 で 述 
べた と お り で ある . 

この プロ セス で は 計算 機 シ ステ ム の 利用 手順 や キー ボー ド の 操作 法 に 関す る 知識 が 必要 と な る . 
これ ら は 初心 者 が 結構 と ま ど う 部 分 な の だ が , 従来 個々 の 計算 機 シ ステ ム に よっ て , その 操作 法 や 
利用 に 至る 手順 が 大 幅 に 異な っ て いた た め , 一 般 的 な 記述 は きわ め て 困難 で あっ た . し か し , 16 
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ビッ ト パ ソ コン の 普及 と と も に , その OS も ある 程度 整理 体系 化 さ きれ て き て お り , 本 書 で は 
MS-DOS 上 の TURBO Pascal を 想定 し て , 第 2 章 で TURBO Pascal の 操作 法 に つい て , その 基 
本 的 な 部 分 だ け を 述べ て ある . 

な お , タイ プラ イタ を 使う 機会 が 少な いわ れ わ れ 日 本 人 に は , キー ボー ド に 慣れ る こと も また 。, 
計算 機 と 付き 合っ て いく うえ で 始め に 払わ な く て は な ら な い 共 力 の 一 つ で ある . し か し , 最初 は 厄 
介 な よう で も , し ば らく すれ ば 必ず 慣れ て 苦 に な ら な く な る も の で ある か ら 心 配 は いら な い . 


〈 キ ー ボ ー ド に つい て > 
パソ コン の キー ボー ド は 通常 , 図 1.6 に 示す よう な キー 群 か ら 構 成 さ れ て いる . 
多く の キー ボー ド で は , 「 普 通 文字 キー」 は 白色 , 「 制 御 コ ー ド キー」 と 「 モ ー ド キー」 は 灰色 な 
どの 着色 キー と な っ て いる . 
フル キー: まず フル キー の 部 分 に つい て , その キー 配置 の 1 例 を 図 1.7 に 示す .「 普 通 文字 
キー」 の 配置 は 通常 の タイ プラ イタ と 同様 で ある . これ ら の キー に よる 入力 に 際 し て は , モー 
ドキ ー に よっ て 次 の 3 つの 入力 モー ド の いずれ か を 選択 する . 以下 で は 主として 英文 字 入力 
モー ド の み を 使用 する . 
英文 字 入 力 モー ド 白色 キー の 左 半分 (また は 左上 半分 ) に 示さ れ て いる 英文 字 や 記号 
を 入力 する モー ド 
か な 文字 入力 モー ド 白色 キー の 右 半 分 (また は 右 下 半分 ) に 示さ れ て いる か な 文字 や 記 
号 を 入力 する モー ド 
グラ フィ ッ ク 入 力 モ ー ド キー に は 示さ れ て いな い 特 殊 な 模様 や パタ ー ン を 入力 する モー ド 
日 本 語 処理 (2.5 節 (d) 項 参 照 ) を 利用 する シス テム で は この モー 
ド を 使用 で き な い 場合 も ある . 
パソ コン 起動 時 に は , 通常 , 英文 字 入 力 モ ー ド と な っ て いる は ず で ある . 試み に フル キー 中 央 付 
近 の 任意 の 白色 キー を 1 つ だ け 押 し て みる と よい . その キー に 記さ れ て いる アル ファ ベッ ト の 小 文 
字 が 画面 に 表示 され れ ば , 英文 字 入力 モー ド と し て 正常 で ある . 大 文字 の アル ファ ベッ ト が 表示 さ 
れる よう な ら CAP (また は CAPS) キー が 押下 され た 状態 に ある の で , 再度 CAP( ま た は CAPS) 


プロ グラ マブ プル ・ フ ァ ン クシ ョ ン キ ー 


ォ キー ボー ド 
図 16 キー ボー ド の キー 群 配置 
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キー を 押し て 通常 の 状態 に 戻す . また , も し 白色 キー の 右 半分 に 記さ れ て いる , か な 文字 が 画面 に 
表示 され る よう な ら , か な 文字 入力 モー ド と な っ て いる の で ある か ら , か な キー( ま た は カナ キー 
ある い は 英 数 字 キ ー) を 押し て 英文 字 入 力 モ ー ド に 直す . 
英文 字 入 力 モ ー ド で は 白色 キー の 働き は 通常 の タイ プラ イタ と 変わ らち ら ない. すなわち , 各 キ ー を 
押せ ば , その キー に 示さ れ て いる 英字 の 小文字 や 数 字 , ある い は その キー の 左下 部 分 に 示さ れ て い 
る 記号 が 入力 され る . また SHIFT キー を 押し な が ら 白 色 キ ー を 押せ ば 英文 字 の シフ ト 入 力 モ ー ド 
と な り , 各 キ ー に 示さ れ て いる アル ファ ベッ ト の 大 文字 ある い は その キー の 左上 部 に 示さ れ て い 
る 記号 が 入力 され る . 
英文 字 入 力 モ ー ド で CAP キー( ま た は CAPS キー) を 押す と , それ 以後 の 英字 入力 は 全て 大 文字 
と な る . この キー は 英字 以外 の キー に 対し て は 作用 し な い . 
フル キー の 中 の 制御 コー ドキ ー で は , 次 の よう な キー を し ば し ば 使用 する . ( ) 内 は 本 書 で 用 い 
る 略記 号 を 示す . 
リタ ー ン キー (RET) : フル キー の 右端 中 央 部 分 に ある 大 き な キ ー で 曲がっ た 矢印 が 表示 され 
て いる . 通常 ., キー ボー ド か ら 人 入力 さ れ た 文字 列 や デー タ は RET キー が 押さ れ て 初め て , そ 
の 行 の 内 容 が シス テム に 渡さ れる . 1 
バッ クス ペー スキ ー( 〇 ) : RET キー の 上 に ある . カー ソル の 左 の 1 文字 を 削除 する . 
スペ ー ス キー: 空白 (ブランク) を 入力 する た め の 細 長い キー. 
シフ トキ ー (SHIFT) : フル キー の 左右 両端 に ある . この キー を 押下 し な が ら 他 の キー と 組み 
合わ せ て 用 いる 
コン トロ ー ル キー(CTRL) : 左側 の シフ トキ ー の 上 に ある . この キー も 他 の キー と 組み 合わ せ 
て 制御 コー ド を 発生 きせ る の に 用 いる 
エス ケー プ キ ー(ESC) : フル キー 左上 端 に ある . 


フル キー の 操作 に 際 し て は 次 の 点 に 留意 する と よい . 
(1) 両手 の 指 は 常に ホー ム ポ ジ シ ョ ン に 置く よう 心掛け る . 


選 旨 開 旨 国 還 思 半 間 間 国 還 国 軒 に コ 


1.7 JIS に よる フル キー の 配置 例 
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左 小指 左 薬 指 左 中 指 左 人 差 指 右 人 差 指 右 中 指 右 薬指 右 小指 
図 1.8 各 指 の キー 分 担 


ホー ム ポ ジ シ ョ ン で は , 左手 の 小指 か ら 人 差 指 まで を それ ぞ れ 回, 還 , 回 , 国 キ ー の 上 に 置き , 
右手 は 人 差 指 か ら 小 指 ま で を それ ぞ れ 還 , 図 , 田 , キー の 上 に 置く 

(2) 両手 各 指 の キー 分 担 を 決め て , 全部 の 指 を 使う よう 心掛け る . 
キー ボー ド 上 の キー を 図 1.8 の よう に , 左上 か ら 右 下 に 至る 列 ご と に グル ー プ 化し , 各 指 の 分 
担 と する . 親指 は スペ ー ス キー や カナ 漢字 変換 キー な ど を 分 担 する . 


その 他 の キー 群 に は 次 の よう な も の が ある . 

プロ グラ マブ ル ・ フ ァ ン クシ ョ ン キ ー : フル キー の 上 方 に 並ん で いる キー で , よく 使う 命令 な 
ど を 記憶 きせ, 1 スト ロー ク で 命令 を 起動 きせ る な どの 目的 に 使う . 

エディ ッ ト キ ー: フル キー の 右 方 に , 2 列 $ 段 程 訟 の キー が あり , プロ グラ ム や 文書 の 編集 作 
業 に 利用 する . 

テン キー : エディ ッ ト キ ー よ り 更 に 右 方 に . 0 か ら 9 まで の 数 字 や 四則 演算 記号 な どの キー が 
あり , 10 進 の 数 値 を 入力 する と き な ど に 使う . これ ら の キー は , フル キー の 中 に ある も の と 
同じ 意味 を 持っ て いる . 


1.3 Pascal 人 門 


(a4) プロ グラ ム の 基本 形 
あら ゆる プロ グラ ム に は 基本 と な る 形 が ある . 本 節 で は , 例題 に よっ て , Pascal プロ グラ ム の 基 
本 形 と Pascal 文法 の 入門 事項 を 学ぶ . 


の Pe 
: 二 つ の 整数 as と b を 読み 込ん で , これ ら 二 数 の 和 , 差 , 積 , 商 (整数 商 ), 剰 余 を 計算 し , 
: 入力 デー タ と 計算 結果 を 出力 する . 


この 場合 , プロ グラ ム が 実行 すべ き 処 理 内 容 は 
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(1) デー タ a と b の 読み 込み (デー タ 人 入力 ) 
(2) 和 , 差 , 積 , 商 , 剰余 の 計算 (必要 な 計算 処理 ) 
(3) 入力 デー タ お よび 計算 結果 の 出力 (デー タ 出 力 ) 
の 三 つ に 区 分 け で きる . 


プロ グラ ミン グ 言 語 は 、 これら の デー タ 処 理 手順 を 書く 際 の 約束 ご と の 集まり で ある . Pascal の 
約束 ご と (Pascal 文法 ) に 則っ て , 上 の 処理 手順 を プロ グラ ム 化し た 例 を プロ グラ ム 1.1 に 示す . 


プロ グラ ム 1.1 
7| program seisuu_sisoku(input,output): {( プロ グラ ム 頭 部 ) 
の var a, b : integer: { 変数 の 型 宣 言 } 
3 wa, Sa, seki, shou, amari : integer: し 同上, ) 
4| begin { 実行 部 分 の 始ま り } 
readln(a,b) : { デー タ の 読み 込み } 
6 Wa :=a+ b: 
Z Sa := a - b: 
8 seki :=a*b: { 二 数 の 乗算 ) 
9 shou :=a div b: { 整数 の 除算 ) 
70 amari := a mod b: { 整数 除算 の 剰余 ) 
7 writeln(a:7,b:7): { デー タ の 書き 出し )} 
72 writeln(wa:8,sa:8,seki:8,shou:8,amari:8) { 同上 )} 
73| end. { プロ グラ ム の 走り )} 


ーー も っ 


プロ グラ ム 1.1 の 骨格 は 
program プロ グラ ム 名 (input, output) : 


var 変数 名 、……、 変 数 名 : 型 名 : 
) 各種 の 宣言 等 
begin 
) 処理 内 容 
end. 


と な っ て いる . プロ グラ ム が 大 規模 に な れ ば , 「 各 種 の 宣言 等 」 や 「 処 理 内 容 」 の 部 分 は 複雑 に な 
る が , プロ グラ ム の 基本 形 は 変わ ら な い . より 一 般 的 な プロ グラ ム の 構造 を 志 せ ば 次 の よう に な る 
( 各 宣 言 や 定義 の 具体 的 な 方 法 , 意味 機能 等 に つい て は 第 3 章 以降 で 述べ る ). な お , 各種 宣言 ・ 定 
義 部 分 と 実行 部 分 は まとめ て ブロ ッ ク と 呼ば れる . 
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| Program プロ グラ ム の 名 前 (ファ イル 名 , , ファ イル 名 ): | 
[ [ 1D eeeds32SSS2 ss ラベ ル 宣 言 間 | | 
| [ 2 定数 定義 部 ! | 
| | 全 陸 Sitetosrekctn:p 和 0 な 末 型 定義 部 各種 宣言 | 
科 epre 二 keysd8E52tecntoe 変数 家 言 部 | 定義 部 分 
[ | 00 eee 手続 宣言 部 [ 
| | 人 sted あ お A 関数 宣言 部 | 1 
「 | begin | ! 
1 実生 文部 | 実行 部 分 | 
| end. [ | 


ここ に 英字 で 記し た program, label, const 等 々 の 語 は , Pascal に お ける 予約 語 ( 本 節 末 尾 参照 ) で 
あっ て , これ ら の 用 語 を 用 いる 場合 に は , 定め られ た と お り の 緩 り 記号 を 使用 し な けれ ば な ら な い . 
また , プロ グラ ム 1.1 に お ける input, output, integer, readln, writein な ど は , 特定 の 意味 や 機能 を 
持た せ て あら か じ め 言 語 処理 系 に 用 意 き れ て いる 標準 の 名 前 で ある . これ ら の 標準 名 と し て は , 標 
準 型 名 (integer, real 等 ), 標準 定数 名 (maxint、 true, false 等 ), 標準 変数 名 (input, output 等 ), 標準 
手続 き 名 (readln, writeln 等 )、 標準 関数 名 (abs, exp, sin,cos 等 ) が 定義 き 8 れ て お り , それ ぞ れ の 名 前 
に よっ て 与え られ る 機能 を 利用 する こと が で きる . これ ら に つい て も 今後 必要 に 応じ て より 詳し い 
説明 を 加え て いく . 


以下 で は , Pascal 文法 へ の 入門 を 兼ね て , プロ グラ ム 1.1 の 各行 が 何 を 意味 し て いる か を 説明 し 
よう . な お , Pascal プロ グラ ム で { と }) で 囲ん だ 中 味 は , 注釈 な いし は コメ ント で あっ て , プロ グ 
ラム の 実行 内 容 に は 何等 影響 を 与 を な い . プロ グラ ム 1.1 で も , これ を 利用 し て , 簡単 な 説明 を 試 
みて ある . 


(b) プロ グラ ム 1.1 の 説明 

(1) 行 目 : Pascal プロ グラ ム の 始ま り で あり , プロ グラ ム 頭 部 と 呼ぶ . 「seisuu_sisoku」 は この 
プロ グラ ム の 名 前 で ある . 小 か っ こ 内 の 「input」 お よび 「output」 は それ ぞ れ この 
プロ グラ ム で デー タ の 「 入 力 」 お よび 「 出 力 」 が 行なわ れる こと を 意味 し て いる . 文 
の 区 切り に は 区 切り 記号 , (セミ コロ ン ) を つけ な けれ ば な ら な い .. 


(2) 行 目 : 


(3) 行 目 : 
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変数 の 型 宣言 部 . 

計算 機 に お ける デー タ 処 理 に お いて は , 入力 し た デー タ は すべ て いっ た ん 記憶 域 に 
し まわ れる . 記憶 域内 の デー タ は 必要 に 応じ て CPU に 取り 出さ れ て , 処理 が 施さ れ 
る . あと で 必要 と な る 処理 結果 等 も いっ た ん 記憶 域 に し まっ て お く . これ ら 記 憶 域 の 
中 の 記憶 場所 は プロ グラ ム の 中 で , 館 一 番地 で 指定 する 代わ り に , デー タ に 名 前 を つ 
ける こと に よっ て 確保 する . 確保 し た 記憶 域 の 中 味 そ の も の は , 入力 する デー タ や 計 
算 処 理 に より 変わ る の で 「 変 数 」 と 呼び . その 名 前 を 「 変 数 名 」 と いう . 

Pascal プロ グラ ム で は プロ グラ ム の 中 で 使用 する すべ て の 変数 名 を 前 も っ て 宣言 す 
る と と も に , お の お の の 変数 が 表わす デー タ の 型 を 明示 する . 

1.1 節 () 項 で 述べ た よう に , 計算 機 の 内 部 に お いて は , すべ て の デー タ や, 記号, 
文字 , 命令 な ど は , 2 進数 字 の 列 で 表現 きれ て いる と 考え る こと が で きる . これ ら 2 
進数 字 の 列 が 表わす 実質 的 内 容 は , その 2 進数 字 の 列 が . どの よう な タイ プ の デー タ 
を 表わし て いる か を 規定 し な いと 定まら な い . Pascal で は , さま ざま な 型 の デー タ を 
自ら 定義 し 使用 する こと が で きる が , 当面 は 標準 的 に 用 意 き され て いる 次 の 4 つの 基本 
的 な デー タ の 型 を 挙げ て お く . 


integer (整数 刑 ) ・-32768 一 32767 の 範囲 の 整数 * 
real (実数 型 ) : 2.9X10-? か ら 1.7X10“ まで の 10 進数 で , 有効 数 字 約 11 
桁 程度 の 数 ** 
char (文字 型 ) ・ ASCII 形式 の 文字 *^ 
Boolean (論理 型 ) ・ true, false の 論理 値 を 持つ 
*※1 : TURBO Pascal で は 整数 は 2 バイ ト , 実数 は 6 バイ ト を 占め る . 一 般 の PAS- 
CAL で は 処理 系 に よっ て 相違 する の で 注意 を 要する . 


*2: ASCIL(American Standard Code for Information Interchange) 


プロ グラ ム 1.1 (2) 行 目 の 

Var a,b: integer : 
は , 変数 き お よび b の 記憶 域 を 確保 むす る と と も に , その 記憶 域 に し まわ れる デー タ 
が 整数 型 で ある こと を 宣言 し て いる . この よう に , 変数 宣言 で は , 最初 に 予約 語 var 
を 置き , 1 文字 分 以上 の 空白 を お いて , カン マ で 区 切ら れ た 同じ 型 の 変数 名 の 並び が 
置か れ , その 後に コロ ン , 型 ,」 セミ コロ ン が 続く . 
(2) 行 目 の 続き で , 計算 結果 を 記憶 し て お く $ つの 変数 記憶 域 を 確保 し て いる . 
(2) 行 目 と 3) 行 目 は まとめ て 

Var a,b,wa,sa,seki,shou amari : integer : 


と し て る よい ゆ 。 
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(⑮) 行 目 : 


(6) 行 目 : 
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な お , 「 変 数 名 」 や 「 プ ログ ラム 名 」 な ど , 各種 の 「 名 前 」 は 次 の 規則 を 満た す も 
の で あれ ば , プロ グラ ム 作 成 者 が 自由 に つけ る こと が で きる . た だ し , 予約 語 と 同じ 
名 前 を 使用 する こと は で き な い . 
・ 英 字 で 始ま り , 英字 また は 数 字 を な ら べ た も の 
・127 文字 以内 (処理 系 に よっ て は 最初 の 6 文字 一 数 十文字 の み を 認識 ) 
・TURBO Pascal で は 特殊 記号 の 下線 「_ 」 も 使用 する こと が で きる . 
多く の Pascal 処理 系 で は , 英字 の 大 文字 と 小文字 は , 文字 列 デ ー タ の 中 を 除い て 区 
別 し な い の で , どちら を 用 いて も よい し , 両者 を 適宜 混用 し て も よい . 


: 「begin」 は プロ グラ ム 実 行 部 分 の 始ま り を 意味 する . この 「begin」 と (13) 行 目 の 


「end」 に は さま れ た 部 分 が この プロ グラ ム の 処理 実行 部 分 で ある . ここ に は 実際 に 
行なう 動作 を 記述 する が , 動作 記述 の 単位 と し な る も の を 文 と 呼ぶ . 文 に は 他 の 文 を 含 
まな い 単 純 文 と , 内 部 構造 を 持つ 構造 文 と が ある . 文 と 文 の 間 は セミ コロ ン で 区 切る . 
「readIn (ab) 」 は , 計算 に 先立っ て , どこ か ら か 与え られ る 二 つ の 数 値 を それ ぞ れ 順 
に 変数 s と b に 代入 する こと を 意味 し て いる . この よう な デー タ の 読み 込み は , プ 
ログ ラム 実行 時 に さま ざま な 媒介 (入力 装置 ) を 経由 し て 行なう こと が で きる が , その 
方 法 は 後述 する . デー タ の 読み 込み に は read( ) と readln( ) を 標準 的 に 用 いる こと 
が で きる . ( ) 内 に は デー タ を 与え た ぃ 変数 名 を , コン マ で 区 切っ て 必要 な だ け 並 べ 
る こと が で きる . read( ) で は , ( ) 内 に 指定 し た 変数 の 個数 だ け デ ー タ が 読み 込ま 
れ , 順次 各 変数 に 代入 され る . 

変数 a と b に 入っ て いる 二 つ の 数 値 を 足し あわ せ , 結果 を 変数 wa に し まう . 結果 を 
変数 に し まう こと を 「 代 入 」 す る と いい , Pascal で は 代入 を 意味 する 記述 と し て 「: 
=ー」( コ ロン イー コー ル ) を 使う . この 「 : ニ 」 を 使う 文 を 代入 文 と 呼ぶ 代入 文 で は , 
右辺 の 計算 結果 を 左辺 の 変数 に 代入 する . 


: 整数 の 四則 演算 と その 結果 の 「: = ニ 」 に よる 代入 で ある . 和 と 差 の 演算 を 表わす 記号 


は 通常 の 数 学 記号 と 変わ らち な い が , 積 の 演算 記号 と し て は (8) 行 目 「*」( ア スタ リ 
スク ) を , また 整数 の 除算 に は 「div」 を , 剰余 を 求め る に は 「mod」 を 使う . 

7 div 3 の 演算 結果 は 2 

7 mod 3 の 演算 結果 は 1 


: ($) 行 目 で 読み 込ん だ 入力 デー タ を その まま 出力 し て いる . 意図 通り に 正しく デー タ 


が 入っ て いる か どう か の 確認 の 意味 か ら も , 計算 結果 だ け で な く , 入力 デー タ も 改め 
て 出力 し て お く の が よい . 

デー タ の 出力 も さま ざま な 媒介 (出力 装置 ) を 通じ て 行なえ る が , 当面 は ディ スプ レ 
イ 上 へ の 出力 を 想定 し て お く . 

「writeln (a : 7, b : 7) 」 は , 変数 4 と b に し まわ れ て いる 数 値 を , それ ぞ れ 7 桁 分 
の 幅 の 中 に 右 に 寄せ て 書き 出す こと を 意味 する . 書き 出し に は write( ) ま た は 


(12) 行 目 : 


(13) 行 目 : 
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writeln( ) を 標準 的 に 用 いる こと が で きる が , write( ) で は 書き 出し た あと 改行 を 
し な い の に 対し て , writeln( ) で は ( ) 内 の デー タ 書 き 出 し 終了 後 , 改行 を 行なう . 
入出 力 用 の read, readIn, write, writeln な ど は 前 も っ て 標準 的 に 用 意 さ れ た 手続 き 
(3.6 節 参 照 ) で ある . すでに 定義 さ 8 され て いる ユー ザ 定 義 の 手続 き や , あら か じ め シ ス 
テム 側 で 用 意 き され て いる 標準 手続 き を 呼び 出す 文 の こと を 手続 き 文 と いう . 手続 き 文 
は 手続 き 名 その も の で あり , 手続 き 名 の 後ろ に 必要 に 応じ て 括 線 に 囲ま れ た 引数 (3.6 
節 参照 ) を と 並べ さる こと が で きる . 
演算 結果 の 出力 で ある . 行 の 終わ り に , 命令 , 文 , 宣言 等 の 区 切り 記号 で ある セミ コ 
ロン が な い の は , 次 の (13) 行 目 に 「end」 が あり , これ も ゃ 命令 を 区 切る 働き を 持っ て 
いる か ら で あ る . た だ し , TURBO Pascal で は , この 場合 に も セミ コロ ン が あっ て 
も よい . 

(4) 行 目 の 「begin」 と 呼応 する 形 で 「end」 は 実行 部 分 の 終わ り を 示し て いる . 更に 
プロ グラ ム 全 体 の 終り に は . (ピリ オド ) を 付き ね ば な ら な い . 
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(c) Pascal で 使用 で きる 文字 
Pascal プロ グラ ム で 使用 で きる 文字 は 次 の よう に 定め られ て いる . 


英字 
abcdefghijklmnopqrstuvwxyzg 
ABCDEFGHIJKLMNOPORSTUVWXYZ 


数 字 
0123456789 


特殊 文字 
2 


(ISO Pascal で は 上 記 特 殊 文 字 の 他 に | の 使用 も 許し て いる が , TURBO Pascal で は | の 代わ り に 下記 の 
^ を 使う .) 


TURBO Pascal 固有 の 特殊 文字 


^ 


韻 $ (アン ダー スコ ア ) @( ア ッ ト マ ー ク ) 


これ ら の 特殊 文字 は , 単独 また は 組み 合わ せ に よっ て 次 の よう な 意味 を 持つ . 


算術 演算 
* 乗算 (整数 型 お よび 実数 型 ) 
の 除算 (実数 型 ) 
加算 
に 減算 
( ) 演算 順序 の 制御 
プロ グラ ム 構 成 
: デ 代入 


プロ グラ ム の 終わ り を 示す 区 切子 
文 の 終わ り を 示す 区 切子 
{ } 注釈 や コメ ント 

また は コン パイ ラー へ の 指示 (TURBO Pascal の み , 第 $ 章 参照 ) 
文字 列 の 始め と 終わ り 
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比較 ・ テ スト 
等 し い 
小 な り 
大 な り 
小 ま た は 等 し い 
大 また は 等 し い 
等 し く な い 


A vV A vV へ Il 
| 


V 


また , 英字 を 組み 合わ せ た い くつ か の 単語 は , 1 まとまり で 1 つの 記号 と し て 用 いら れ , 緩 り 記 
号 と か 予約 語 と 呼ば れる . Pascal に お ける 予約 語 の 役割 は 重要 で あっ て , 以下 に 示す 予約 語 は , 
ユー ザ が 勝手 に 名 前 と し て 再 定義 し , 使用 する こと は 許さ れ な い . 


予約 語 
*※ absolute and array begin case const div do downto 


else end * external fiile for forward function goto 


1 * implementation Im * ネ Inline * ネ interface 

* interrupt label mod nil not of or packed 
procedure program record repeat set * shl * Shr 
*※ String then to type * ネ unit until * ネ USGS Var 
while with ネ XOT 


( あ た ま に * 印 を 付け た も の は TURBO Pascal 特有 の 予約 言語 で ある . ) 
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第 の 章 
TURBO Pascal シ ステ ム の 使い 方 


TURBO Pascal は , 操作 性 に 優れ て お り , 使い 勝手 の 良い パー ソナ ル ・ コ ンピュータ 用 Pascal 
と し て 定評 が ある . プロ グラ ム の 作成 や 修正 , プロ グラ ム の コン パイ ル と 実行 更に は ディ スケ ッ ト 
へ の セー ブ , ディ レク トリ の 表示 等 が ,.「 メ ニュ ー」 に 従っ て 手軽 に 行 な を る シス テム な の で ある . 

この 章 で は , TURBO Pascal シス テム の 起動 , プロ グラ ム の 作成 や 修正 な どの 編集 作業 , コン 
パイ ル , 実行 」 プ ログ ラム の ディ スケ ッ ト へ の セー ブ な ど , 一 連 の 作業 に 必要 な 事項 に つい て 述べ る . 

な お , 本 書 で は MS-DOS 上 の TURBO Pascal を 想定 し て 記述 する . 


2.1 TURBO Pascal の 起動 * 


オペ レー ティ ング シス テム の プロ ンプ ト 人 入力 促進 記号 ) 
F:\> 
は , ドラ イブ F を カレ ント ドラ イブ と し て MS-DOS の コマ ンド 入力 待ち 状態 で ある こと を 示し て 
いる . 
TURBO Pascal を 起動 し て , プロ グラ ム を 自分 の フロ ッ ピ ー デ ィ ス ク に 保存 し た いと き は , 前 
も っ て 
F:\>a: の 
と し て , カレ ント ドラ イブ を A に 変更 する . ここ に 下線 部 は ユー ザ が 入力 する も の で あり , 
キー は リタ ー ン キー を 押す こと を 意味 する . する と ディ スプ レイ 上 に は 
A:\> 
と プロ ンプ ト が 表示 され , 再び コマ ンド 待ち 状態 と な る . そこ で , 
A:\>pascald 
と 入力 する と 図 2.1 の よう な 画面 に な る . ファ イル 名 (2.2 節 参 照 ) が 決っ て いる と き は , pascal の 
後に スペ ー ス を あけ て ファ イル 名 を 指定 する . 例え ば , ファ イル 名 が SISOKU. PAS で あれ ば , 
A・ 平 >pascal sisoku 
と 入力 する . 


*\ ここ で は 東京 大 学 教育 用 計算 機 セ ンタ ー に お ける 起動 法 に つい て 説明 する . 一 般 の パー ソナ ル ・ コ ン ピ 
ュー タ で は , た と えば ドラ イブ A に MS-DOS の シス テム , ドラ イブ B に TURBO Pascal の フロ ッ ピ ー 
ディ スク を 入れ , B>turbo< り と 起動 する . 
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E: 編 集 R: 実 行 C:nyV 人 0:7' ョ 7 D: デ パッ 7  B: ゲ ルー2 
Edit 
Line 1 Col 1 Insert Indent Unindent A:NONAME. PAS 


F1-AM7′ F5-Z - ム F6-91 ツ ルト 9 F7- ト ル -2 F8-2777' 実行 F9-417 F10- だ た ュ - 


図 2.1 TURBO Pascal の 初期 画面 


ファ イル 名 を 指定 し た 場合 、 その ファ イル が 存在 すれ ば 画面 に ファ イル の 内 容 が 表示 され , ファ 
イル が 存在 し な けれ ば , プロ グラ ム 作 成 状態 と な る . ファ イル を 指定 し な いと き は , 画面 左上 の F 
・ フ ァイル が 反転 し て いる こと が わか る . 

画面 一 番 上 の 1 行 は メイ ン メ ニュ ー と いっ て , 主 な 操作 の 名 前 が 並ん で いる . 


ま 


ワ の OO 回 


B 


ファ イル ファ イル か ら 読 み 込む , ファ イル に セー ブ す る , 終了 な ど 
・ 編集 プロ グラ ム の 作成 ・ 編 集 ( エ ディ タ ) 
・ 実行 プロ グラ ム の 実行 , 実行 画面 の 表示 
・ コン パイ ル プロ グラ ム の コン パイ ル 
・ オ プシ ョ ン  。 コン パイ ル の 指定 , 環境 設定 
> が パグ プロ グラ ム の デバ ッ グ 用 
・ プ レー ク プレ ー ク ポイ ント の 設定 


これ ら の 機能 を 選択 する に は , 先頭 の F, E, R,C… の 文字 を キー で 押す か , 一 , 一 キー で カー 
ソル (文字 の 反転 ) を 移動 し , g キ ー で 選択 する こと が で きる . た だ し , よく 用 いる 操作 は ホッ ト 
キー と いっ て どの 状態 か ら も キー 操作 する こと が で きる . 


2.2 ソー スプ ログ ラム ファ イル の 作成 


ここ で は , 第 1 章 で 学ん だ 例題 ・ プ ログ ラム 1.1 を 使っ て , プロ グラ ム の 入力 方 法 お よび 編集 方 
法 に つい て 述べ る . コン ピュ ー タ の 中 で は 一 まとまり の プロ グラ ム や デー タ は すべ て ファ イル と し 
て 保存 きれ る (それ は 丁度 われ われ が 一 まとまり の 書類 や 資料 を 別々 の ファ イル に 整理 し て し まっ 
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F:77 化 E: 編 集 R: 実 行 CinV 仁 0: わ 7 ョ 7 D: デ パッ グ が Bi:7 ル 9 
1 も 人 
Line 1 Col 1 Insert Indent Unindent A:NONAME. PAS 
prOgTaW SeiSuu sisoku(input, output) :9 
var a,b : integer: の 
wa, Sa, seki, shou, amari:integer: の 9 


F1-AM7′ F5-7ー- ム F6-91y ト "9 F7- ト L-2 F8-2797 実行 F9-#12 F10- た ュー 


図 2.2 プロ グラ ム の 入力 


て お く の と 同様 で ある ). 

Pascal の よう な 高級 言語 で 書か れ た プロ グラ ム は ソー スプ ログ ラム また は 原始 プロ グラ ム と 呼ば 
れる . し た が っ て プロ グラ ム 1.1 を コン ピュ ー タ に 入力 する こと に よっ て , 1 つの ソー スプ ログ ラ 
ム フ ァ イル を 作る こと に な る わけ で ある . 

まず , プロ グラ ム を 入力 ・ 編 集 す る た め に は , メニ ュー の : 編集 (エディ タ ) に 入る . その た め 
に , キー ボー ド の E の キー を 押す か , ESC キー を 押す か , PF 10 キー を 押す . どの キー を 選ぶ か 
は 自分 の やり や すい も の , ある い は 覚え や すい も の を 選ぶ . 編集 状態 に 入っ た か どう か は カー ソル 
を 見 て いれ ば 確認 で きる . 

この キー 操作 を 行う と , 枠 内 の 左上 付近 に 小さ い 四角 が 点 減 し て テキ スト 入力 状態 に 入っ た こと 
が わか る . プロ グラ ム に し た が っ て 文字 を 打っ て , 各行 の 終わ り に 9 キー を 打つ と 改行 が 行わ れ 
る . な お , プロ グラ ム 1.1 の 各行 の 後ろ ク に ある | | で 囲ま れ た 部 分 は コメ ント と いっ て プロ グラ 
ム に 直接 関係 の な い 部 分 な の で 必ず し も 入力 する 必要 は な い . 漢字 の 入力 に 慣れ て きた ら , 適度 に 
コメ ント を 追加 する と よい . 

文字 を 入力 し て いく と 枠 内 の 一 番 上 の 行 の 数 字 が 変化 する こと が わか る . この 行 を ステ ー タ ス 行 
と いい , 次 の よう な 意味 が ある . 

Linem "プログ ラム の 先頭 か ら 数 を て カー ソル が 第 m 行 目 に ある こと を 示す . 

Col n 画面 の 左端 か ら 数 を て カー ソル が 第 n 列 目 に ある こと を 示す . 

Insert エディ タ に よる 文字 入力 に は Imsert と Overwrite が ある . Insert の 表示 は Insert 状態 に 
ある こと を 示し , Overwrite の と き は 何 も 表 示さ れ な い . Insert で は カー ソル の ある 位 
置 に 入力 文字 が 挿入 され , カー ソル の 右 に あっ た テキ スト は 1 文字 ずつ 右 に ずれ て いく 
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Overwrite 状態 で は カー ソル の 位置 に ある 文字 は キー ボー ド か ら 入 力 さ れ た 文字 に 置き 
換え られ る . モー ド の 切り 替え は 後述 の CTRL-V を 使う . 

Indent 自動 段 付 けが 行わ れる こと を 示し て いる . Pascal プロ グラ ム で は プロ グラ ム を 読み や す 
くす る た め 段 付け (Indentation) を 多用 する . し た が っ て 邊 付け 機能 は 有効 で ある . 

A ・ fename 
エディ ッ ト 中 の ファ イル の ドラ イブ 名 , ファ イル 名 が 表示 され る . 
NONAME. PAS は まだ 名 前 が 指定 きれ て いな いこ と を 意味 する . 


2.3 プロ グラ ム の 編集 


キー ボー ド 操 作 に 慣れ な いう ち は 入 力 ミ ス も 多く , 打ち 込ん だ 文字 や 記号 を 修正 する 必要 が 度々 
生ずる も の で ある . プロ グラ ム の 修正 や 書き 直し な ども , 同じ エディ タ で 行え る . 
エディ タ に は , カー ソル を 自由 自在 に 動か す , 文字 を 挿入 する , 削除 する , 探索 する , 置き 換え 
る , 等 々 の 46 個 の エディ ッ ト コ マン ド が 用 意 さ きれ て いる . これ ら の コマ ンド は 表 2.1 に 示す よう に , 
・ カ ー ソ ル 移 動 に 関す る コマ ンド 
・ 挿 入 ・ 削 除 に 関す る コマ ンド 
・ ブ ロッ ク に 関す る コマ ンド 
・ そ の 他 の コマ ンド 
の 4 つの グル ー プ に 分 類する こと が で きる . これ ら の コマ ンド の すべ て が 直ちに 使い こなせ る 必要 
は な い . ここ で は プロ グラ ム の 編集 作業 に 必要 な 最小 限 の コマ ンド ( 表 中 の *※ 印 付き ) だ け を 紹介 す 
る . 表 で 2 文字 の コマ ンド , 例え ば CTRL-K CTRL-B と ある の は , CTRL キー を 押し た まま 順 
に K つ づい て B と 押せ ば よい . 


(a) 重要 な コマ ンド 
スク リー ン エ ディ タ で は 画面 内 の 必要 な 場所 に カー ソル を 移動 させ , 文字 や 文字 列 , 行 な ど の 挿 
入 ・ 削 除 ・ 書 換え 等 の 編集 作業 を 行う 、 エディ タ の デフ ォ ル ト ・ キ ー・ ス トロ ー ク に お ける カー ソ 
ル 移 動 コ マン ド は 系 統 的 に 構成 され て お り , キー ボー ド 左 端 付近 に 隣接 し て 並ん な で いる 次 の 4 つの 
文字 が 最も 基本 と な っ て いる . 
国 


図 
これ ら 4 文字 の キー は CTRL キー の 近く に 位置 し て お り , 左手 の 小指 で CTRL キー を 押し な が 
ら , 中 指 や 人 差 指 で 簡単 に 入力 で きる . また , キー の 位置 関係 か ら CTRL-E が カー ソル を 上 に , 
CTRL-XX は 下 に , CTRL-S は 左 に , CTRL-D は 右 に 動か す と いう こと も わか りや すい . CTRL 
キー と これ ら 4 つの 文字 の 内 の 1 つ を 押し 続け れ ば , カー ソル は 画面 の 中 を 素早 く 動 きま わる . 
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表 2.1 エディ ッ ト ・ コ マン ド 一 覧 表 


・ カ ー ソ ル 移 動 の コマ ンド ・ 挿 入 や 削除 の コマ ンド 

* 1 文字 左 へ CTRL-S *※ 挿 入 プ 上 書き モー ド の 切替 CTRL-V 

* 1 文字 右 へ CTRL-D * カ ー ソ ル 位 置 の 1 文字 削除 CTRL-G ま た は 削除 キー 
1 語 左 へ CTRL-A * ま カー ソル の 左 の 1 文字 削除 (G キ ー) 
1 語 右 へ CTRL-F カー ソル の 右 の 1 語 削 除 CTRL-T 

* 1 行 上 へ CTRL-E * 1 行 挿入 CTRL-N 

* 1 行 下 へ CTRL-X * 1 行 削除 CTRL-Y 
スク ロー ル ・ ア ッ プ CTRL-W 行末 まで の 削除 CTRL-O CTRL-Y 
スク ロー ル ・ ダ ウン CTRL-Z 
1 ペー ジ 上 へ CTRL-R 
1 ペー ジ 下 へ CTRL-C 
行 の 左端 へ CTRL-O CTRL-S 
行 の 右端 へ CTRL-O CTRL-D 
画面 の 先頭 へ CTRL-O CTRL-E 
画面 の 最後 へ CTRL-O CTRL-X 
ファ イル の 先頭 へ CTRL-O CTRL-R 
ファ イル の 最後 へ CTRL-O CTRL-C 
プ ブロッ ク の 先頭 へ CTRL-O CTRL-B 
プ ブロック の 最後 へ CTRL-O CTRL-K 


前 の カー ソル 位置 へ CTRL-O CTRL-P 


・ プ ロッ ク に 関す る コマ ンド ・ そ の 他 の コマ ンド 

プ ブロック の 始点 マー ク CTRL-K CTRL-B *※ 編 集 終了 CTRL-K CTRL-D 
プロ ッ ク の 終点 マー ク CTRL-K CTRL-K タブ CTRL-I 
1 語 マ ー ク CTRL-K CTRL-T 自動 タプ の オン プ オ フ CTRL-O CTRL-I 
プロ ッ ク 表 示 ノ 非 表 示 CTRL-K CTRL-H 行 を 最初 の 状態 へ 戻す CTFRL-O CTRL-L 
プロ ッ ク の 複写 CTRL-K CTRL-C 文字 列 探索 CTRL-O CTRL-F 
プ ブロッ ク の 移動 CTRL-K CTRL-V 探索 し た 文字 列 置 換 CTRL-O CTRL-A 
ブロック の 削除 CTRL-K CTRL-Y 前 と 同じ 文字 列 を 探索 CTRL-L 
プロ ッ ク の 読み 込み CTRL-K CTRL-R コン トロ ー ル 文字 入力 CTRL-P 
ブロッ ク の 書き 出し CTRL-K CTRL-W 
プロ ッ ク の 印刷 CTRL-K CTRL-P 

・ カ ー ソ ル を 1 文字 左 へ CTRL-S また は ーー キ ー 

・ カ ー ソ ル を 1 文字 右 へ CTRL-D また は 一 キー 

・ カ ー ソ ル を 1 行 上 へ CTRL-E また は 1 キー 

・ カ ー ソ ル を 1 行 下 へ CTRL-X また は キー 


カー ソル の 移動 以外 に 重要 な コマ ンド に 次 の よう な も の が ある . 
・ 挿 入 プ 上 書き モー ド の 切り 替え CTRL-V 


・ カ ー ソ ル の 左 の 1 文字 削除 キー( バ ックス ペー スキ ー) 
・ カ ー ソ ル 位 置 の 1 文字 削除 CTRL-G また は 削除 キー 
・ カ ー ソ ル 位 置 に 1 行 挿入 CTRL-N 


・ カ ー ソ ル 位 置 の 1 行 削除 CTRL-Y 
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編集 を 終了 し て メニ ュー 行 に 移る に は , CTRL-K, CTRL-D と 押す か , PF10 キー を 押せ ば よい . 
た だ し , TURBO Pascal ver. $ で は 主要 な 操作 が 編集 中 に 行え を る の で , 必ず し も メニ ュー 行 に 移 
る 必要 は な い . 


(b) ヘル プ 

キー 操作 を 忘れ た と き は , ヘル プ を 見 て 参考 に する こと が で きる . 

ヘル プ を 見 る に は PF1 キー を 押す が , 例え ば , プロ グラ ム 作 成 ・ 編 集中 は エディ タ の ヘル プ が 
( 図 2.3),。 エラ ー メ ッ セ ー ジ が 出 て いる と き は その ヘル プ が 出 て くる . 


F:7? 侯 E: 編 集 R: 実 行 C:nyY 伯 0: わ リョ D: デ V ッ ガー B:7 ル -7 


Edit 
Line 1 Col 1 Insert Indent Unindent A:EX1.PAS 
DTOgTa eX1: 
begin Help 
writeln('PAS 基本 カー ソル 移動 コマ ンド 

end. 
1 文字 左 へ CTRL-S また は 一 
1 文字 右 へ CTRL-D また は 一 
1 単語 左 へ CTRL-A 
1 単語 右 へ CTRL-F 
1. 行 上 へ CTRL-E また は 1 
1 行 下 へ CTRL-X また は ! 


スク ロー ル ア ッ プ CTRL-W 
スク ロー ル ダ ッ ウン CTRL-Z 


F1- 目 次 1 !- ヵ -7 ル 移動 Return- 選 択 ESC-AM7' 終了 


2.3 編集 中 の ヘル プ 画 面 


ヘル プ 画 面 は 中 央 の 小さ い 枠 で 囲ま れ た 部 分 で ある が , 右 下 に ' 次 行 ' と 出る こと が ある . これ 
は , まだ ヘル プ 画 面 が 続く と いう こと を 表し て いる . 9 キー の 少し 右上 に 次 行 "と 書か れ た キー 
が ある の で , そこ を 押す と 次 の 説明 を 見 る こと が で きる . 次 の 説明 か ら 前 の 説明 に 戻る に は ' 前 行 
"キー を 押す . 

ヘル プ を 見 る の を 中 止 し た いと き は , ESC キー を 押す . また 他 の 項目 の ヘル プ を 見 た いと き , 
た と えば 編集 中 に 編集 以外 の ヘル プ を 見 た い 場 合 は , PF1 を 2 回 押し て , 図 2.4 の よう な ヘル プイ 
ン デ ックス を 出す . 

次 に ーー 1 ! の キー で カー ソル (反転 部 分 ) を 移動 し て , 9 キー を 押し 必要 な 項目 を 選択 する . 

例え ば , 下 , for, while な どの 文 に つい て の 構文 を 知り た いと き は , "Reserved word' を 参照 する . 
また read, write に つい て 詳し く 知 り た いと き は , "Library procedures' を 参照 する . 実行 や セー ブ 
の キー 操作 を 忘れ た と き は , "Hot keys' な ど を 参照 すれ ば 必要 な 情報 が 得 ら れる . 


第 2 章 TURBO Pascal シス テム の 使い 方 31 


F:77 偽 E: 編 集 R: 実 行 Cy 伯 0:7 7 ョ 7 DD: デア ッ 9 が B:7 ル -2 
Edit 
Line 1 Col 1 Insert Indent Unindent A:EX1.PAS 
DrOgTam eX1: 
begin Help 
writeln('PAS INDEX 
end. Help on Help Hot Keys 
Editor Error MessageSs 
block commands Installation(TINST) 
cuTSOT WOVement Library functions 
insert & delete Library proceduTres 
miscellaneous Menu commands 
Command-line options Reserved Words 
Compiler directives Units 
Debugging Windows 


F1- 目 次 1 !-#-》 ル 移動 Return- 選 択 ESC-AM7 終了 


図 2.4 ヘル プイ ン デ ックス 


2.4 プロ グラ ム の 翻訳 ・ 実 行 ・ 終 了 


(a) プロ グラ ム の 翻訳 ・ 実 行 

エディ タ を 終え て コン パイ ル ・ 実 行 する に は , CTRL-PF9 を 押す . CTRL キー を 押し た まま , 
PF9 を 押す . 

プロ グラ ム に 誤り が ある と , 枠 内 の 一 番 上 に 赤い 字 で , コン パイ ル エ ラー が 出 て くる . エラ ー メ 
ッ セ ー ジ の 意味 が わか ら な いと き は , PF1 を 押し て ヘル プ を 呼ん で 説明 を 見 る こと が で きる . 

エラ ー の 原因 が わか れ ば エディ タ で 修正 し , 再度 CTRL-PF9 を 押す . コン パイ ル ・ エ ラー が 出 
な いと 実行 が 始ま る . プロ グラ ム 1.1 の 場合 ,、 デ ー タ と し て 2 つの 整数 を 1 行 で 与え を る こと に な っ 
て いる . そこ で キー ボー ド か ら , た と えば ぱ , 

17 6 

の よう に 2 つの デー タ を スペ ー ス (プラ ンク ) で 区 切っ て 打ち 込ん で リタ ー ン キー を 押す こと に より 
デー タ が 確定 し , 計算 が 実行 さま れる. た だ し 一 瞬 の うち に 画面 が 元 に 戻 . この プロ グラ ム の 実行 
結果 は , も う 一 つの 画面 (MS-DOS) に 表示 され る の で , それ を あら た め て 見 て みる . それ に は , 
ALT-PFS を 押す . ALT キー( ま た は GRPH キー) は , スペ ー ス キー の 少し 左 の 方 に ある . これ を 
押し た まま , PFS を 押す . する と 実行 結果 の 画面 が 出 て き て 四則 演算 の 結果 を 見 る こと が で きる . 
ここ で 何 か の キー( た と えば くり キー) を 押す と , エディ タ の 画面 に 戻る . 


32 第 I 部 基礎 編 


(b) プロ グラ ム の 保存 ・ 終 了 

プロ グラ ム は 保存 し な いと すべ て 消え て し まい , 何 も 残ら な い . プロ グラ ム の 保存 は PF2 で あ 
る . これ を 押す と , 次 の よう な 表示 が 出 て くる . 今 ま で ファ イル の 名 前 を 何 も 指 定 し な か っ た の で 
仮 の 名 前 ITNONAME' が 付い て お り , 正しい 名 前 を 開い て くる . 


Rename NONAME 
| rowwg.ms 」 


program の 名 前 が seisuu_sisoku な の で , ファ イル の 名 前 を SISOKU に する . s と 打つ と , 枠 の 
中 の 名 前 が すべ て 消え , s の 文字 が 入る . 続け て isoku と 打つ と , sisoku と な る の で , キー を 押 
す . する と , フロ ッ ピ ー 挿 入口 の 赤い ラン プ が 2, 3 秒 光っ て 書き 込み が 行わ れ た こと が わか る . 
また Edit 画面 最上 行 の 右端 の ファ イル 名 が A : SISOKU. PAS に 変わ っ て いる こと が わか る . 

プロ グラ ム を 作成 し て いる と き は , 時 々 PF2 を 押し て プロ グラ ム を 保存 する 方 が よい . 思わ ぬ 
障害 の た め に , 長い 時 間 を か け て 打ち 込ん だ プロ グラ ム が 消滅 し て し まう こと も ある か ら で あ る . 

TURBO Pascal を 終了 する と き は , ALT-x を 押す . 初め に ALT キー を 押し た まま に する . す 
る と, 画面 の 一 番 下 の 表示 が 変わ り , それ を 見 る と x を 押す と 終了 する こと が わか る . ALT キー 
を 押し た まま x を 押す と , 終了 し て MS-DOS に 戻る . 

も し プロ グラ ム を エディ タ で 修正 し て , それ を 保存 し て いな いり 場合, 次 の よう な メッ セー ジ が 画 
面 に 出 て くる . 


ーーーーーーーーー Verify ーー 一 ーー レビ 
A:\SISOKU.PAS not saved. Save? (Y/N) | 


普通 は y を 押す が , 必要 の な いと き は n を 押す . n を 押す と セー ブ さ れ な いま ま 終 了 す る . し た が 
っ て 終了 し な いで 作業 を 続け る と き は , BSC キー を 押す . 


(c) 計算 結果 の 印刷 
プロ グラ ム 作 成 し , 正常 に 実行 で きた こと を 確か め , 次 の 操作 を 行う . 操作 は すべ て MS-DOS 
で 行う の で , Turbo Pascal は 終了 する . し た が っ て ALT-x を 押し て 終了 する . MS-DOS の プロ 
ンプ ト A:\> が 出 て くる の で , 実行 型 フ ァイル を 作成 する . 

A:\>tpc sisokud 
この 操作 に より , SISOKU. PAS と いう ソー スプ ログ ラム か ら 実 行 型 フ ァイル SISOKU. EXE を 
作成 する . 次 に これ を MS-DOS で 実行 する 

A:\>sisoku 
前 に 実行 し た よう に 2 つの 数 値 を 入力 し て J キー を 押す と 計算 結果 が 画面 に 表示 され る . 次 に も 
う 一 度 実行 し , 実行 結果 を プリ ンタ に 出力 する . 

A: 半 >sisoku>prn 


第 2 章 TURBO Pascal シス テム の 使い 方 33 
同じ よう に 2 つの 数 値 を 入力 する . ペー ジ プ リ ンタ の 場合 , 印刷 を 行っ て も 紙 が 排出 され な いこ と 
が ある . その と き は , 

A:\> 人 ff の 
と 入力 すれ ば ょ よい. 


2.5 MS-DOS の 基本 的 コマ ンド 


MS-DOS は 磁気 ディ スク を 備え た ワー クス テー ショ ン や パー ソナ ル ・ コ ンピュータ の 利用 を 援 
助 す る オペ レー ティ ング シス テム で ある . TURBO Pascal は MS-DOS の 諸 機 能 の 一 部 を 利用 し て , 
これ まで 述べ て きた よう な 一 連 の 作業 を 巧み に 処理 し や すく し た シス テム で ある . 本 節 で は , 当面 
必要 に な る 最小 限 の 範囲 で MS-DOS の コマ ンド 等 に つい て 説明 する . 詳し く は MS-DOS の 専門 
解説 書 を 参照 され た い . 


(4) フロ ッ ピ ー デ ィ ス ク の 初期 化 : FORMAT 
新しい フロ ッ ピ ー デ ィ ス ク を MS-DOS 上 で 使用 する た め に は , 最初 に その ディ スク を 初期 化し 
て 記録 形式 を MS-DOS 用 に 整え る 必要 が ある . 

(1) フロ ッ ピ ー デ ィ ス ク を 購入 し た ら , まず ユー ザ 用 ラベ ル に , 自分 自身 で それ と 識別 で きる よ 
う な 標題 等 を 記入 し て , ディ スク の 表側 ・ メ ー カ ー ラ ベル の 横 に 貼付 し て お く 

(2) フロ ッ ピ ー デ ィ ス ク は , ラベ ル 貼 付 部 分 を 手前 か つ 上 側 (縦長 の スロ ッ ト で は 左側 ) に し て , 
ディ スク ドラ イブ の スロ ッ ト に 挿入 する . カチ ッ と いう 音 ( ま た は 手応え ) が する まで 挿入 し た 
ら , レバ ー 等 を 閉じ る . 

(3) MS-DOS の コマ ンド 待ち 状態 で は , カ レン トド ライ ブ 名 と 不 等 号 「>」 か ら な る プロ ンプ ト 
が 表示 され て いる . この 状態 に あれ ば , また この 状態 に ある と き に 限り ,MS-DOS の コマ ンド 
が 受け 付け られ る . な お , MS-DOS の コマ ンド 入力 に お いて は 大 文字 と 小文字 の 区 別 は な い . 

(4) ディ スク の 初期 化 に は FORMAT コマ ンド を 用 いる . いま 挿入 し た 新しい ディ スク は ドラ 
イブ B に ある も の と し て , まず カレ ント ドラ イブ が F(MS-DOS の シス テム ファ イル が 入っ 
て いる ディ スク の ドラ イブ ) で ある こと を 確認 する . そう で な いと き は f:<⑳ と キー イン し 
て カレ ント ドラ イブ を F に 変更 する . 

($) MS-DOS の プロ ンプ ト F:\> に 対し 


F:\>format b: ( イ ) 
(MS-DOS シス テム ファ イル の 中 の FORMAT と いう プロ グラ ム を 用 いて ドラ イブ B の ディ スク を 
初期 化 せよ ょ ) 

また は 
F:\>format b:/ ( ロ ) 


(ドラ イブ B の ディ スク を 初期 化す る と と も に , MS-DOS の シス テム フ ァイル 等 を この ディ スク に 
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転写 せよ . 情報 教育 棟 で は で き な い ) 

と 入力 する . ( イ ) の 場合 , 初期 化 さ きれ た フロ ッ ピ ー デ ィ ス ク は デー タ の 書き 込み や 読み 出し し 
か で きず , この ディ スク 単独 で は MS-DOS を 起動 する こと が で き な い . ( 口 ) の 場合 に は , 
MS-DOS を 起動 きせ る た め に 必要 な 3 つの ファ イル , MSDOS. SYS, IO. SYS, COM- 
MAND. COM を 初期 化 さ きれ た ディ スク 上 に コピ ー す る の で , この ディ スク 単独 で も 
MS-DOS を 起動 する こと が で きる (MSDOS. SYS と IO. SYS は “隠さ れ た ファ イル "で あっ 
て , 後述 の DIR コマ ンド で は 表示 され な い ). 

(6) MS-DOS の コマ ンド を 入力 中 に タイ プ ミ ス を し た 場合 は ,、 バッ クス ペー スキ ー で 間違え た 
場所 まで カー ソル を 移動 きせ , 入力 し な お す . 

(7) ディ スク の 初期 化 は 最初 に 1 度 だ け 行なえ を ば よい . FORMAT コマ ンド に よっ て ディ スク を 
初期 化す る と , それ まで その ディ スク に 存在 し て いた 情報 は すべ て 消去 され る の で 注意 を 要する . 


(b) ファ イル の 内 容 表示 と 印刷 
(b)-1 ファ イル の 内 容 表示 : TYPE 
ファ イル の 内 容 を ディ スプ レイ に 表示 する に は TYPE コマ ンド を 使う . 
(1) ドラ イブ A の ディ スク に ある ファ イル , た と えば 「FILE1. PAS」 の 内 容 を 表示 させ る に は , 
以下 の よう に 入力 する . 
type a:fie1.pas 
(ドラ イブ A に ある FILE1. PAS と いう ファ イル の 内 容 を 画面 に 表示 せよ ) 
ドラ イブ A が カレ ント ドラ イブ で ある 場合 に は a: を 省略 する こと が で きる . 
(2) ファ イル が 大 きい 場合 , 画面 は スク ロー ル し , ファ イル の 内 容 が 次 々 に 表示 され る . ゆっ く 
り 内 容 を 見 た いと き に は , 次 の いずれ か の 方 法 を と る . 
イ ) CTRL-S を 押し て スク ロー ル を 停止 させ る. スク ロー ル 再 開 に は , 何 か 1 文字 (た と え 
ば スペ ー ス ) を 入力 する . 
ロ ) 1 画面 分 ずつ 区 切っ て 表示 きせ る た め 
type a:file1.pas | more 
と する . 1 画面 分 表示 し た と ころ で 停止 する の で , 何 か 1 文字 (た と えば スペ ー ス ) を 入力 
する と 次 画面 分 に 移る 
(3) この TYPE コマ ンド や 次 の PRINT コマ ンド は , ソー スプ ログ ラム の ファ イル や 何ら か の 文 
書 フ ァイル な ど , 一 般 に テキ スト ファ イル に だ け 使 用 する . オブ ジェ クト プロ グラ ム の ファ イ 
ル や シス テム ファ イル (シス テム ソフ トウ エア が 入っ て いる ファ イル ) に 対し て これ ら の コマ ン 
ド を 実行 し て も , 奇妙 な 記号 が 表示 さき れる だ け で ある . 
1.1 節 で も 述べ た よう に , われ われ 人 間 が 用 いる 文字 列 と し て の 情報 表現 (これ を 外部 表現 
と 呼 ぼう ) と , 計算 機内 部 の 情報 の 表現 (内 部 表現 ) と は 互い に 異な っ て いる . この よう な 内 部 
表現 と 外部 表現 の 間 の 自動 変換 が 定義 され て いる ファ イル を テキ スト ファ イル と いう 
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(D)-2 ファ イル の 内 容 印刷 : PRINT 
ファ イル の 内 容 を プリ ンタ に 印刷 する に は 次 の よう に する . 
(1) MS-DOS の シス テム ファ イル が 入っ て いる ディ スク の ドラ イブ を カレ ント ドラ イブ と する . 
(2) 内 容 を 印刷 し よう と する ファ イル (FILE2. PAS と する ) が 入っ て いる ディ スク の ドラ イブ 
(いま の 場合 , ドラ イブ A と する ) を 確認 する . 
(3) プリ ンタ の 電源 が ON に な っ て お り , 用 紙 が セッ ト さ れ て いる こと を 確認 する . 
(4) プロ ンプ ト F:\> に 対し 
F:\>print a:file2.pas 
(シス テム ファ イル の PRINT と いう プロ グラ ム を 用 いて , ドラ イブ A に ある FILE2. PAS の 内 
容 を プリ ンタ に 印刷 せよ ) 
と 入力 する . 


(c) ファ イル 管理 

(@-1 ファ イル 

(1) われ われ が ディ スク 上 に ソー スプ ログ ラム や デー タ や 文書 な ど 一 まとまり の 情報 を 記録 し 
て お くく とき, これ ら は すべ て それ ぞ れ ファ イル と し て 存在 する . ファ イル は 第 2 章 で 見 た 
よ ょ うに, TURBO Editor や 汎用 エディ タ を 通じ て , キー ボー ド か ら 文 字 列 を 入力 し て 作 
る こと も で きる し , 3.3 節 で 見 る よう に プロ グラ ム に よっ て デー タフ ァイル を 作成 し た り 
その 内 容 を 書き 換え た りす る こと も で きる . 

(2) ファ イル に は それ ぞ れ 名 前 を 付け て 識別 する . MS-DOS に お ける ファ イル 名 は , 英 数 字 , 
特殊 記号 , 仮名 漢字 な どか ら な る 8 バイト 以内 ( 英 数 字 , 特殊 記号 の 1 部 な ど , 1 バイ 
ト で 表 わ せ る 文字 や 記号 の 場合 は 8 文字 以内 , 漢字 は 1 字 に 2 バイ ト を 要する の で 許容 文 
字数 は 減る を . すべ て 漢字 な ら 4 文字 以内 ) の 文字 列 と , 3 バイ ト 以 内 の 拡張 子 の 前 に ビリ 
オド を 付け た も の で ある (2.2 節 で 述べ た TURBO Pascal に お ける ファ イル 名 の 付け 方 は 
MS-DOS に 人 準拠 し た も の な の で ある ). ファ イル に は , 内 容 や 使用 目的 を 反映 し た わか り 
や すい 名 前 を 付け る の が よい . 

(3) ファ イル 一 覧 (ディ レク トリ ) の 表示 : DIR 
ディ レク トリ と は , ディ スク 内 容 の 一 覧 で も あっ て , ファ イル 名 と その 大 き さ , お よび 作 
成 ま た は 最後 に 変更 され た 日 付 な どの 情報 が 記録 され て いる . ディ レク トリ の 内 容 を 見 る 
に は DIR コマ ンド を 用 いる . た と えば ドラ イブ A の ディ レク トリ を 表示 する に は 

F:\>dir a: 
と する . ドラ イブ 名 を 省略 し た 場合 に は カレ ント ドラ イブ の ディ レク トリ が 表示 され る . 
この 他 
dir a: /w 
dir a: /p 
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な どの オプ ショ ン を 指定 する こと も で きる . それ ぞ れ の 機能 は 一 度 試し て みれ ば 直ちに 理 
解 で きる で あろ う . 
ファ イル の 複写 : COPY 
ファ イル の コピ ー を 行なう に は COPY コマ ンド を 使う . 
F:\>copy afile.pas a:bfile.pas 
は ドラ イブ F に ある AFILE. PAS を , ドラ イブ A の ディ スク に BFILE. PAS と いう 名 
前 で コピ ー す る . 複写 元 ド ライ ブ が カレ ント ドラ イブ で ある 場合 や ヤ カ レ ント ドラ イブ 内 で 
の 複写 を 行なう 場合 に は ドラ イブ 指定 を 省略 する こと が で きる . また , 新しい ファ イル 名 
を 指定 し な けれ ば , COPY コマ ンド は 自動 的 に 送り 側 の ファ イル 名 で コピ ー を 行なう . 
ファ イル の 削除 : DEL 
不要 に な っ た ファ イル を 削除 する に は DEL コマ ンド を 使用 する . 
F:\>del a:cfile.bak 
は ドラ イブ A に ある CFILE. BAK を 削除 する . カレ ント ドラ イブ 内 の ファ イル の 場合 に 
は ドラ イブ 指定 を 省略 で きる . 
MS-DOS の 予約 ファ イル 
MS-DOS で は , 各種 の 周辺 装置 (デバ イス ) を も ファ イル と し て 扱う こと が で きる . そ 
の た め に , いく つか の ファ イル 名 が デバ イス ファ イル 名 と し て 予約 され て お り , これ ら の 
ファ イル 名 を ディ スク 上 の ファ イル と し て , ユー ザ が 再 定 義 し て 使う こと は で き な い . 予 
約 フ ァイル 名 に は 次 の よう な も の が ある (シス テム に よっ て 多少 の 変動 あり ). 
AUX 補助 入出 力 ( た と えば 通信 ポー ト ). 
CON コン ソー ル デ バ イス . キー ボー ド か ら の 入力 や ディ スプ レイ へ の 出力 
PRN プリ ンタ デバ イス . プリ ンタ へ の 出力 . 
NUL ダミ ー 入 出力 ファ イル 
その 他 
ワイ ルド カー ド : 疑問 符 ? と アス タリ スク ※* 
ファ イル 指定 の 中 に , ワイ ルド カー ド と 呼ば れる 2 つの 特殊 文字 すなわち 疑問 符 (? ) 
と アス タリ スク (*) を 使う こと に より , MS-DOS コマ ンド で 複数 の ファ イル を 1 度 に 取 
り 扱う こと が で きる . 
( イ ) ファ イル 名 と 拡張 子 の 中 で の 疑問 符 ( ? ) は, その 位置 に 「 任 意 の 1 文字 」 が あて は 
まる こと を 意味 する . た と えば , DIR コマ ンド と 組み 合わ せ て 
DIR REIDAI?.PAS 
と 入力 する と , カレ ント ディ レク トリ (本 節 (c) -3 項 参照 ) に ある ファ イル の うち , 拡張 子 
が “.PAS" で あり , “REIDAI" と いう 文字 列 で は じ ま る 7 文字 の ファ イル 名 を 持っ た す 
べ て の ファ イル の ディ レク トリ 情報 を 表示 する . この コマ ンド で 表示 され る ファ イル は 
た と えば 次 の よう な も の で ある . 


(c)-2 


(c)-3 
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REIDAI1.PAS 

REIDAI2.PAS 

REIDAIA.PAS 

REIDAIX .PAS 
( ロ ) ファ イル 名 と 拡張 子 の 中 で の アス タリ スク (※) は , その 位置 の 任意 の 複数 個 の 文字 
が 可変 で ある こと を 意味 する . た と えば 

DIR *.PAS 
は , カレ ント ディ レク トリ に ある ファ イル の うち , 拡張 子 が “.PAS" で ある ファ イル の 
ディ レク トリ 情報 を 表示 する . 

例 REIDAI.PAS 

KADAIX.PAS 
AFILE .PAS 

ディ スク ドラ イブ 
われ われ が 多数 の ファ イル を 保有 する よう に な る と , これ ら の ファ イル 群 を 何ら か の 方 法 
で 整理 ・ 統 括 す る こと が で きれ ば 便利 で ある . MS-DOS で は , ファ イル 群 を グル ー プ 化 
し 組織 化す る 方 法 と し て , ドラ イプ に よる グル ー プ 化 と , ディ レク トリ に よる 組織 化 を 用 
いる こと が で きる . 
ファ イル 群 グ ルー プ 化 の 最大 の 単位 は ディ スク ドラ イブ に よる 区 別 で ある . ディ スク ドラ 
イブ は 英字 1 文字 の ドラ イブ 名 で 指定 する . 複数 個 の ディ スク ドラ イブ を 備え た シス テム 
で は , 各 ド ライ ブ を 指定 ・ 利 用 し て , 多様 な ファ イル 操作 が 可能 と な る . 
ドラ イブ 名 を 省略 し た と き MS-DOS が 入出 力 を 行なう ドラ イブ を カレ ント ドラ イブ と い 
う . カレ ント ドラ イブ は MS-DOS の プロ ンプ ト 中 に 表示 きれる. カレ ント ドラ イブ の 変 
更 法 に つい て は すでに 述べ た が 

中:\>b: の 
は カレ ント ドラ イブ を d」 か ら d に 変更 する . 
ディ レク トリ 
同一 ディ スク 上 で ファ イル 和 群 を 分 類 整理 する に は , 図 2.5 に 示す よう な , 階層 ディ レク ト 
リ 構造 を 利用 する と 便利 で ある . すなわち , .MS-DOS に お いて は , いく つか の ファ イル 
や ディ レク トリ を まとめ て 1 つの ディ レク トリ と し て 登録 する こと が で きる . この 場合 , 
ディ レク トリ に も ファ イル 名 と 同様 な 方 法 で 名 前 を 付け て ディ レク トリ 名 と する . 換言 す 
れ ば , 1 つの ディ レク トリ の 中 に いく つか の ファ イル や 別 の (サブ ) ディ レク トリ を 持つ こ 
と が で き , その (サブ ) ディ レク トリ の 中 に さら に 別 の ファ イル や (サブ ) ディ レク トリ を 持 
つい … と いう 構成 に で きる の で ある . 
各 ド ライ ブ に は , 1 番 上 の 階層 の ディ レク トリ と し て ルー トディ レク トリ が ある . この 
ルー トディ レク トリ は , ディ スク の フォ ー マ ッ ト を 行なっ た と き に 自動 的 に 作ら れる ディ 
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ルー トディ レク トリ 


ディ レク トリ 
JUGYOU-2 


ディ レク トリ 
JUGYOU-1 


ディ レク トリ 
PRIVATE 


ディ レク トリ 
KADAI 


ディ レク トリ り 
OUYOUHEN 


AFILE.PAS 


図 2.5 階層 ディ レク トリ 構造 の 例 


レク トリ で ある . ユー ザ は 必要 に 応じ て ルー トディ レク トリ の 下 に , (サブ ) デ ィ レ クト リ 
を 作る こと が で きる . (サブ ) ディ レク トリ を 作る に は MD (Make Directory) コマ ンド を 
使う . 

A : \>md jugyou1 
は , ルー トディ レク トリ の 下 に JUGYOU1 な る ディ レク トリ を 作る 
すべ て の ファ イル は , ルー トディ レク トリ か ら そ の ファ イル に 至る ディ レク トリ 名 の 連鎖 
と その ファ イル 名 自身 と に よっ て 一 意 に 指定 され る . これ を その ファ イル の 完全 パス 名 と 
呼ぶ . た と えば 

A : \\JUGYOU1\REIDAI\AFILE.PAS 
に よっ て ドラ イブ A の ルー トディ レク トリ に 属し , JUGYOU1 と いう ディ レク トリ に 属 
し , その 中 で も REIDAI と いう ディ レク トリ に 属す る AFILE. PAS と いう ファ イル が 指 
定 き れる . この よう に 「 デ ィ レ クト リ …… に 属す る 」 と いう こと を 「…… 導 」 で 表わす 
ルー トディ レク トリ を 表わす に は 単に 通貨 記号 の み を 用 いる . 
各 ド ライ ブ ご と に , 当面 の 処理 の 中 心 的 対象 と な る ディ レク トリ を 1 つっ 指定 する こと が で 
きる . これ を カレ ント ディ レク トリ と 呼ぶ . MS-DOS 起動 時 の カレ ント ディ レク トリ は 
ルー トディ レク トリ で ある . 上 の (2) で 述べ た MKDIR コマ ンド は カレ ント ディ レク トリ 
の 下 に 新しい ディ レク トリ を 作る の で ある . また , カレ ント ディ レク トリ の 移動 に は 
CD (Change Directory) コマ ンド を 用 いる . た と えば 

A>cd \jugyou1l 9 
に よっ て , ルー トディ レク トリ の 中 の JUGYOU1 と いう ディ レク トリ を カレ ント ディ レ 
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クト リ と し て 指定 で きる . な お , パス 名 を 省略 し て CD コマ ンド だ け を 入力 する と , そ 
の 時 点 で の カレ ント ディ レク トリ が 表示 され る . 

(5) カレ ント ディ レク トリ は 略号 ビリ オド 「.」 で 表わさ れる . また カレ ント ディ レク トリ の 
親 デ ィ レ クト リ は 略号 「..」 で 表わさ れる . 

(6) カレ ント ディ レク トリ 内 の ファ イル や ディ レク トリ を 指定 する 場合 に は , 完全 パス 名 を 全 
部 指定 する か わり に , 単に その ファ イル 名 や ディ レク トリ 名 だ け を 指定 すれ ば よい . た と 
えば 先 の AFILE. PAS な る ファ イル の 指定 は , 完全 パス 名 に よる 場合 

A : \JUGYOU1\REIDAI\AFILE.PAS 
で あっ た が , カレ ント ディ レク トリ が 

A : \JUGYOU1\REIDAI 
で ある 場合 に は , 単に AFILE. PAS で 足り る . この よう に カレ ント ディ レク トリ を 基点 
と する ファ イル の 指定 を 相対 パス 名 と 呼ぶ 


( 日 本 語 入 力 機能 
わが 国 で 販売 ・ 使 用 きれ て いる MS-DOS は 多く の 場合 日 本 語 MS-DOS で あっ て ., 日 本 語 の 入 
力 機能 を 備 た を て いる . これ ら に お いて は ATOK や OAK な ど , 本 来 の MS-DOS シス テム と ユー 
ザ プ ロ グラ ム の 間 に 位 置 し て 日 本 語 入力 を 処理 する , いわ ゆる “フロ ント プロ セッ サ ” タイ プ の ソ 
フト ウエ ア が 組み 込ま れ て いる . 日 本 語 入力 の た め の キ ー 操 作 は パソ コン の 機種 に よっ て 後 妙 に 異 
な る の で ここ で は 詳 述 を 避け る が , 基本 的 に は 次 の 手順 に よる . 
(1) まず パー ソナ ル ・ コ ンピュータ を 日 本 語 入 力 モ ー ド に する 

NEC の PC-9800 シリ ー ズ で は CTRL キー と XFER キー を 同時 に 押す . 

IBM の 5550 シリ ー ズ で は 漢字 キー を 押す . 

富士 通 の FMR で は か な 漢字 キー を 押す . 

(2) 日 本 語 入 力 フ ロン ト プ ロ セッ サ は 通常 さま ざま な 入力 モー ド を 備 えて いる が , 一 般 的 に は , 
「 ロ ー マ 字 」 に よる 入力 を 自動 的 に 「 ひ ら か な 」 に 変換 する モー ド を 選ぶ . 画面 の 表示 が , 「R 
(ロー マ 字 入力 ) 」, 「 ひ ら 」 ま た は 「 か な 」, 「 (半角 で な く ) 全 角 」 な ど と な る よう に ファ ンク シ 
ョ ン キ ー 等 を 用 いて 調整 する . 

(3) キー ボー ド か ら 入 力 し た 日 本 語 は 自動 的 に ひら か な に 変換 し て 表示 され る の で , 必要 に 応じ 
て 漢字 変換 キー( 上 の 順に , XFER キー, 変換 キー, 変換 キー) を 押せ ば , 漢字 ・ か な 混じり 
文 に 変換 され る . 詳し く は 各 シ ステ ム の マニ ュ ア ル を 参照 さき れ た い . 
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Pascal 文 法 の 基礎 


第 、 う 凍 


(&) 数 を 表す デー タ の 型 


3.1 デー タ の 型 と 式 


第 1 章 で Pascal の 基本 的 な デー タ の 型 を 紹介 し た . TURBO Pascal ver. $ で は 数 を 表す デー タ 
の 型 が 次 の よう に 何 種類 も ある . この 中 で 〇 は 標準 的 に 使う 型 で ある . 


形式 


定義 済み 整数 弄 
型 範囲 
shortint ー128 一 127 
〇 integer ー32768 一 32767 
longint ー2147483648 一 2147483647 
byte 0 一 255 
word 0 一 653535 


符号 付き 8 ビッ ト 
符号 付き 16 ビッ ト 
符号 付き 32 ビッ ト 
符号 な し 8 ビッ ト 
符号 な し 16 ビッ ト 


〇 real 
single 
double 
extended 
comp 


定義 済み 実数 型 の 範囲 と 桁 数 (10 進 ) 


2.9X10-? 一 1.7xX10% 
1.5X10-? 一 3.4x10 
5.0x10-?24 一 1.7x10798 
3.4x10-932ー1.1x107232 
ー293 十 1 一 293 一 1 
(9.2x10-"ー9.2x10⑮) 


11 一 12 6 
7 一 8 四 
11 一 12 8 
19 一 20 10 
19 一 20 8 


整数 型 は 整数 値 を 表現 する デー タ 型 で ある . これ に 対し , 実数 型 は 浮動 小数 を 表現 で きる . 整数 
型 の 代表 は integer, 実数 型 の 代表 は real で あり , 普通 は これ ら の 型 を 用 いる . 数 値 を 扱う 場合 は , 
必要 に 応じ て 整数 型 か 実数 型 か また 数 値 の 範囲 に よっ て デー タ の 型 を 選ば ね ば な ら な い . integer 
型 の 最大 値 は 32767 な の で , 例え ば 日 本 の 人 口 と か 大 きい 金額 を 表す に は longint 型 が 望ま し いこ 


と が わか る . 


(b) 整数 ・ 実 数 計算 


第 1 章 で 整数 の 四則 演算 を 行っ た の で , 整数 ・ 実 数 が 混ざっ た 簡単 な 計算 を 行っ て みる . 
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[例題 3.1] 所 要 時 間 の 計算 ………… 


平均 時 速 と 目的 地 ま で の 距離 を 入力 し , 所 要 時 間 を 計算 する . 


10 read]n(dis) : 
11 time 


16 | end. 


金 実 行 例 
速度 (km/h) ? 43 
距離 (km) ? 123 


プロ グラ ム 3.1 


{ *** 所 要 時 間 の 計算 *** } 
program ex2 1(input, output) : 
time : real: 
integer: 


write(' 速度 (km/h) ? 「'): 
readln(speed) : 


9 write(' 距 離 (km) ? 「): 


1 

2 

3 | var speed, dis, 
4 hour, min : 
5 

6 | begin 

7 

8 


:= dis / speed: 

12 hour := trunc(time) : 

13 min := round(60*(time - hour)) : 
14 write(time:6:4, 時 間 = '): 

15 writeln(hour,′ 時 間 ',min,′ 分 ') 


2.8605 時 間 = 2 時 間 52 分 


所 要 時 間 は t 時 間 と いう 形 と h 時 間 m 分 と いう 形 で 表示 する . 速度 s, 距離 d 時 間 t は 実数 弄 
h, m は 整数 型 で 表す . 所 要 時 間 t は , t=d/s で 計算 で きる . {時 間 を h 時 間 m 分 に 変換 する に は , 
h は {の 整数 部 分 で あり , m は {の 小数 部 分 を 60 倍 し て 四捨五入 する . 

使用 する すべ て の 変数 は 前 も っ て 宣言 する . 宣言 を 行う 場所 は 実行 部 分 の 前 で ある . 変数 宣言 は 


必ず 次 の よう な 形式 に な っ て いる . 


var 変数 リス ト : 型 名 : 


複数 の 型 を 用 いる と き は この 部 分 を 繰り 返す 


整数 型 変数 と 実数 型 変数 を 宣言 する と , 例え ば , 


Var age : integer : 


weight, height : real : 


第 3 章 Pascal 文法 の 基礎 43 
の よう に な る . 変数 リス ト と は , 変数 が 1 つの と き は その まま , 変数 が 複数 個 の と き は ", "で 区 切 
っ て 並べ る . 型 名 と 言う の は , 整数 型 の と き は integer( 他 に longint, byte な ど ), 実数 型 の と き は 
real( 他 に double な ど ) と いう 名 前 を 用 いる . 
計算 し た 結果 を 変数 に 代入 する に は , 次 の よう な 代入 文 を 用 いる . 


数 : 一 式 


・ 三 の 前 後 を 宅 け る こと は で きる が , : の 間 を 空け る こと は で き な い . 式 と は , 変数 や 定数 
(この 場合 オペ ラン ド と いう ) を 演算 子 で 結び 付け た も の で ある . 一 般 の 数 式 と 同じ よう に 書く が 違 
う 点 も いく つか ある . 

第 1 章 で 整数 型 の 加減 乗除 と 剰余 の 計算 で 十 , 一 , *, div, mod の 演算 子 を 扱っ た が , div, 
mod は 整数 型 だ け に 使え る 演算 子 で , 実数 型 の 加減 乗除 に は キ 一 */ の 記号 を 用 いる . 実数 型 の 剰 
余計 算 は ない. また / の 演算 は 整数 型 に も 使え る が , 結果 は 実数 型 た なる. すなわち , 

Sdiv3 と 5373 
で は 結果 が 異な る . 前 者 は 整数 型 の 1 と な り , 後者 は 実数 型 の 1.6666…… に な る . 
演算 子 の 前 後 の オ ペラ ンド の 型 が 異な る 場合 は , 実数 型 に 変換 され て 計算 され る . 


a 十 b a 十 1.23 


a 一 b 3.0 一 b | 単項 演算 も ある 

に ゴ a※*b 132.5*b 

/ a/b a/23.5 結果 は つね に 実数 弄 
div ndiv m 整数 型 の み 
mod 1 mod 2 整数 刑 の み 


オペ ラン ド は いく ら で も つなげ る こと が で きる . 一 般 の 式 と 異な り 乗算 記号 は 省略 する こと は で 
き な い . 
ab 十 c 一 d/e*f 一 g 
この 場合 , ユー より */ の 方 が 優先 度 が 高く , 先 に 演算 を 行う . 同じ 優先 度 の と き は , 左側 か ら 
順に 演算 が 行わ れる . 例え ば a/b/C は a を b で 割っ て さら に c で 割る . a/b*c は a を b で 割っ た 
値 に c を 掛け る . 
優先 順位 を 変え る と き は , 一 般 の 式 の よう に ( ) を 用 いる . 例え ば , 次 の よう に な る . 
(a 十 b) *c ((a*x 十 b) ※x 十 c) *x 十 d 
た だ し | | や [ ] は 用 い ず に , ( ) を 重ね て 用 いる . 
演算 子 の な い オ ペラ ンド だ け で も ” 式 "と し て 認め られ る . し た が っ て 式 の 特別 な 場合 は 変数 だ 
け , 定数 だ け に な る . この よう な 考え 方 を する と 次 の よう な 例 も すべ て 上 の 変数 := 式 と いう 
代入 文 で 表す こと が で きる . 


代入 の 形 意味 

数 ・ 一定 数 3 容 数 に 特定 の 値 を 代 人 する 

変数 ・ 一変 数 b: 一 | 変数 の 値 を 他 の 次 数 に 移す 

容 数 ・ ニー 変数 | c: ニーb | 変 数 の 値 の 符号 を 反転 し て 変数 に 移す 
数 ・ 変数 定数 | n: = n+1 | 変数 n の 値 を 1 つ 増 や す ( 例 の 場合 


減算 に つい て は 次 の 例 の よう に , 1 つの オペ ラン ド に 対し , 単独 で 用 いる こと が で きま る. この 減 
算 を 単項 演算 と いい , 最も 優先 度 の 高い 演算 子 と し て 扱わ れる . 
a: 三 b/ 一 c 
な お , べき 乗 の 演算 は な い の で a の 2 乗 , x の 3 乗 は a*a, x*x※x な ど と 書か な けれ ば な ら な 
い (a の b 乗 を exp(b*In(a) ) で 計算 する こと も で きる ). さら に 定数 に つい て は , 12E3(= 12.000), 
1.83e 一 4( 王 0.000183) の よう に 指数 表現 も で きる (実数 型 ) この 他 $12F な どの 16 進 法 も 使え る 
(整数 型 ) $ は 16 進 法 表記 を 意味 し , $12F = 1X16* 十 2x16 十 15 で ある . 
整数 型 と 実数 型 の 混合 演算 で 注意 する こと は , 演算 結果 を 変数 に 代入 する 場合 で ある . 実数 型 の 
変数 に は その まま 代入 で きる が , 整数 型 変数 に 実数 型 の 値 を 代入 する に は , 切り 捨て か 四捨五入 の 
型 変換 関数 を 用 いな けれ ば な ら な い . 
trunc(X) 実数 ( 式 )x を 切り 捨て て 整数 型 に 変換 する 
round(x) 実数 ( 式 )x を 四捨五入 し て 整数 型 に 変換 する 
trunc と 似 た よう な 関数 に int が ある が , int は 実数 値 の 整数 部 分 を 取り 出し て その 値 を 実数 型 で 
返す 関数 で ある . 
例 : a: 三 round(1.5): 
1 : 三 trunc(a*b 十 1.4) : 
] : 三 trunc(c 十 3.3)mod round (a/b) : 


人 オ ー バ ー フ ロー に つい て 
計算 途中 で , 表現 で きる 数 値 の 範囲 を 越 を て し まう こと が ある . TURBO Pascal で は , 整数 型 の 場合 , 
0 の 除算 を 除い て エラ ー メ ッ セ ー ジ を 出さ な いで その まま 計算 を 続け る . し た が っ て 正 の 整数 の 足し 算 や 


掛け 算 で オー バー フロ ー し て 数 値 が イイ ナス に な る こと が ある . 実数 型 の 計算 で オー バー フロ ー を する と 
実行 を 中 断 し , エラ ー メ ッ セ ー ジ を 出し て その 人 箇所 を 示し て くれ る . 


(c) 数 の 入出 力 

計算 だ け を 行う プロ グラ ム で も , 数 値 を 入力 し た り , 結果 を 画面 に 表示 し な けれ ば な ら な い . そ 
の よう な 数 の 入出 力 に つい て 説明 する . 

変数 に キー ボー ド か ら 読 み 込 ん だ 値 を 代入 する に は , 
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read (変数 リス ト ) また は readln( 変 数 リス ト ) 


と いう 手続 き 文 を 用 いる . read と readlIn の 違い は な い ず *. 
1 つの 変数 の 値 を 読み 込む に は , 
read (a) : 
複数 の 変数 の 値 を 読み 込む に は , 
read (a, b, c) : 
の よう に 記述 する . ( ) の 中 の a,b,c の こと を 引数 (ひき すう ) という. プロ グラ ム で read, readIn 
文 が 実行 さき れる と , キー ボー ド か ら 数 値 を 入力 する わけ で ある が , 1 つの 変数 に 対し て は 数 値 を 打 
っ て くり キー, 複数 の 変数 に 対し て は 数 値 を スペ ー ス キー また は TAB キー で 区 切っ て 打ち 込ん だ 
後に 9 キー を 入力 する . 
read, readIn の 実行 に お いて , 何 の 値 を 入力 する の か わか ら な く な る こと が ある の で , 次 の よう 
に write 文 と ペア に し て 用 いる と よい . 
write("age ? ”) : readIn (age) : 
write(' データ 数? 9): readln (n) : 
write(' 身長 と 体重 ? ) : readln (height, weight) : 
数 値 の 値 を 画面 に 表示 する に は , write, writeln を 用 いる . read 文 で は , 引数 は 必ず 変数 で あっ 
た が , write 文 の 場合 は 式 や 文字 列 が 使え る . write は 表示 後に 改行 し な い の に 対し , writeln は 改 
行 を 行う . 


write (パラ メー タリ スト ) また は writeln( パ ラメ ー タ リス ト ) 


パラ メー タリ スト は 1 つの パラ メー タ ま た は 複数 の パラ メー タ を , (コン マ ) で 区 切っ た も の で あ 
る . パラ メー タ が 文字 列 ' で あれ ば , その 文字 列 を 画面 に 表示 する し , パラ メー タ が 変数 で 
あれ ば 変数 の 値 を , 定数 で あれ ば その 値 を 10 進数 表示 する . 

整数 型 変数 i, j, k の 値 を 表示 する 場合 , た と えば , i= 12, j= ニ 3, k = 456 の と き , 

writeln (1, ], k) : 
で は 画面 上 で 123456 と な っ て し まう の で , 次 の よう に 桁 幅 を 指定 する か , 説明 文 を 付け 加え る と 
表示 が わか りや すく な る . パラ メー タ の 次 に くる : 7 は 7 桁 の 桁 幅 に 右 に 寄せ て 表示 され る の で 見 
や すく な り , 表 な ど を 作成 する 場合 に 便利 で ある . また 意味 の ある 言葉 , 説明 文 を つけ て も よい . 
writeln(: 7,1:7,k:7): 


wrteln1ー リ 1 も  j 三 りう)) ドニ kb): 


* ディ スク ファ イル か ら 読 み 込む 場合 は 異な る . また , TURBO Pascal ver. 3 で は デー タ を 読み 込ん だ 後 
に 改行 を 行う と いう 違い が あっ た . 
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writeln(' 最小 値 = 1, ' 最大 値 = ”,)): 
実数 型 に つい て は , 変数 x の 値 が x = 1234.56789 の と き , writeln (x) : が 実行 され る と, 
1.23456789000000E 十 0003 
と 画面 上 に 表示 され る *. この 形式 は 指数 形式 と いい , E の 前 の 数 値 を 仮数 部 , E の 後ろ の 数 値 を 
指数 部 と いう . 仮数 に 10 の 指数 乗 を 掛け た 値 が 結果 と な る . 1 より 小さ い 数 値 に つい て は 指数 部 
が 一 と な る . 
実数 型 の 場合 も 桁 幅 を 指定 する こと が で き , x = 12.3456789 に つい て 7 一 17 の 桁 幅 を 指定 する 
と 次 の よう に な る (左側 ). 


writeln(x: 7) 1.2E 十 0001 writeln(x :10: 0) 12 
writeln(x: 8) 1.2E 十 0001 writeln(x :10: 1) 1243 
writeln(x : 9) 1.2E 十 0001 writeln(x :10: 2) 12339 
writeln(x : 10) 1.2E 十 0001 writeln(x :10: 3) 12.346 
writeln(x : 11) 1.23E 十 0001 writeln(x :10: 4) 12.3457 
writeln (x : 12) 1.23SE 十 0001 writeln(x :10: 5) 12.34568 
writeln (x : 13) 1.2346E 十 0001 writelm(x:10: 6) 12.345679 
writeln(x : 14) 1.23457E 十 0001 writeln(x :10: 7) 12.3456789 
writeln(x : 15) 1.234568E 十 0001 writeln(x :10: 8) 12.34567890 
writeln(x : 16) 1.2345679E 十 0001 writeln(x :10: 9) 12.345678900 
writeln(x : 17) 1.23456789E 十 0001 writeln(x : 10 : 10) 12.3456789000 


また 実数 型 変数 に つい て は , 指数 形式 で な い 固定 小数 表示 を する こと が で き , その 場合 , 全体 の 
桁 幅 と 小数 点 以下 の 桁 幅 を : で 区 切っ て 指定 する . 同じ x に つい て 10 桁 幅 で 小数 点 以下 0 一 10 桁 
を 指定 し た 場合 の 表示 は 上 の 右 の よう に な る . 

これ ら を まとめ る と write, writeln 文 の パラ メー タ x は , 次 の よう に な る . 


X x が 実数 型 の 場合 は 指数 形式 
6 直 f 桁 の 幅 に 右 詰め , 実数 型 の と き は 指数 形式 


の 有朋 る 島 x は 実数 型 , f」 は 全体 , も は 小数 点 以下 の 桁 数 
x は 式 , 変数 , 定数 , ' 文字 列 
f, 拓 , も は 整数 型 の 式 (変数 , 定数 ) 


な お 1t, fI, 12 は 整数 型 の 式 で ある こと を 考え る と , 次 の よう な 例 も 考え られ る . 
例 : writeln (1 : ] 十 2) : 
writeln(' 平均 = ,(a 十 b 十 c) /3.0 : 8 : 3) : 


* コン パイ ラオ プシ ョ ン と し て 数 値 演算 プロ セッ サ の 使用 が 指示 され て いる た め , 表示 は extended 型 と 
な る . 
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writeln ('data 王 ',b/c :j 十 2 1 3※k): 
writeln(′ 右側 ': 60): 
writeln (123 : 10.1.23 : 10 : 4): 


(@ 標準 関数 
一 般 の 計算 に よく 用 いる 三角 関数 指数 ・ 対 数 関数 な ど は シス テム 側 で 用 意 さ きれ て いる (標準 関 
数 と いう ). 算術 計算 用 の 標準 関数 に は 次 の よう な も の が ある . 


数 名 | 引数 | 結果 の 型 | 。 意味 

abs 整数 弄 整数 型 | 絶対 値 

実数 型 実数 弄 

sdr 整数 弄 整数 型 |2 乗 

実数 弄 実数 型 
Sin 整 / 実 数 型 | 実数 型 | 正弦 関数 

cos 整 / 実 数 型 | 実数 型 | 余弦 関数 

eXp 整 / 実 数 型 | 実数 型 | 指数 関数 

In 整 / 実 数 型 | 実数 型 | 自然 対数 

Sqrt 整 / 実 数 型 | 実数 型 | 平方根 

arctan | 整 / 実 数 型 | 実数 型 | 逆 正 接 関数 

int 整 / 実 数 型 | 実数 型 | 実数 の 整数 部 分 
frac 整 / 実 数 型 | 実数 型 | 実数 の 小数 部 分 
pi な し 実数 型 | 円 周 率 を 返す 


た と えば 実数 型 変数 a の 絶対 値 は abs(a) と 表し , a の こと を 引数 (ひき すう ) と いう . abs(8) も 
実数 型 に な る の で , 別 の 変数 に 代入 し て も よい し , 式 に 組み 込ん で も よい し , write 文 の 中 で つか 
っ て も よい . 

例 : b : abs(3): 
c : 三 (abs(a) 十 2.0) /3.0: 
writeln(' 絶対 値 三 ', abs(3) ) : 
d: 王 sqrt(sqr(b) 一 4.0*※a*c): 
x: 三 sin(abs(x 十 y) 十 Z) 十 cos(x/6.0): 

引数 は 実数 型 で も 整数 型 で も よく , abs と sqr を 除い て は 結果 は 実数 型 に な る . 三角 関数 の sm, 
cos の 引数 や arctan の 結果 の 角度 の 単位 は ラジ アン で ある . sim や cos は あっ て も tan は な い の で , 
次 の 例題 の よう に 自分 で 計算 を 組ま な けれ ば な ら な い . 


[例題 3.2] 建物 の eee 
建物 か ら d(m) 離れ た 点 か ら 建 物 の 最上 部 を 見 上 げた 時 の 角度 が 9" で あっ た . 建物 の 高き h : 
(dtan 9 と する ) を 求め る . 
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1 | { *** 建物 の 高 さ *** )} 9 
2 | program prog3 2(input, output) : 
3 | const deg rad = 3.14159265/180: 
4 |var d, tt, h : real: 
5 

6 

4 
8 


begin 
write(' 距離 は (m) ? '): readln(d) : 
write( 角度 は (deg) ? '): readln(t): 
9 {t :=t* deg rad: 
10 h :=d* sin(t) / cos(t): 
11 writeln( 高 さ は ',h:5:3.'m で す .') 
12 | end. は 


れい 


実行 例 

距離 は (m) ? 25 
角度 は (deg) ? 40 
高 さ は 20.977m で す . 


定数 に 名 前 を つけ て 前 も っ て 準備 する こと が で きる . これ は 定数 定義 部 と 呼ば れる 部 分 で ある . 定 
数 の 書き 方 に より , 整数 型 や 実数 型 な どの 型 が 決ま る . た と えば a 王 1: で あれ ば a は 整数 型 ,a 


人 1.0。 


で あれ ば a に は 実数 型 に な る . 定数 の 値 は , 1.23e 一 4 の よう に 指数 表現 を 用 いる こと も で 


きる し , 四則 演算 を 用 いる こと も で きる . 


定数 定義 に は 次 の よう に 2 種類 あり , この プロ グラ ム の 場合 は 型 な し 定数 定義 で ある . TURBO 


Pascal ver. $ の 場合 , 定数 の 記述 に 式 が 使え る (関数 な ど は 使え な い ). 


例 : 


型 な し 定数 定義 const 名 前 = 式  .… 定数 
型 付 き 定数 定義 const 名 前 : 型 = 式 :.… 変数 の 初期 設定 


COtSt a 王 1>b 呈 ま ⑩> 
c 三 1.23e 一 4:d=1B3 : 
e・integer 王 4※123・ 
f・real = 0.382 : 
weeks = 365 div 7 : 


型 な し 定数 定義 の 場合 , a, b, c, d, weeks は 普通 の 変数 と は 区 別 さ れ , 値 を 代入 する こと は で き 


な い . 型 付き 定数 定義 で は , e,f と も 初期 設定 を 除い て は 普通 の 変数 と 同じ よう に 使用 で きる . 
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例 計 算 精度 に つい て 
整数 刑 の 途中 の 計算 は longint 型 で 行わ れる . し た が っ て , 
writeln (round (sqrt (2) * 1e8) ) 
を 実行 する と , 正しい 値 が 表示 され る が , これ を 


i: 王 round(sqrt (2) * 1e8) 

と integer 型 変 数 に 代入 し て か ら , 表示 する と で た ら め な 値 と な る . 実数 型 の 途中 計算 も , real 型 を ex- 
tended 型 に 変換 し て か ら 計 算 す る (数 値 演算 プロ セッ サ の 指定 が ある 場合 ). 計算 の オー バー フロ ー や 精度 
に は 十分 注意 し た い . 


(e) 練習 問題 

[1-1] 2 つの 抵抗 値 8, b を 入力 し , 並列 に 接続 し た と き の 合 成 抵抗 c を 計算 し な さい . た だ し , 
1 
0 すま 


-2] 価格 (longint 型 ) を 入力 し て 消費 税 (3%) と 税込 み 金額 を 表示 し な さい . 

[1-3] 三角 形 の 辺 の 長き a, b, c を 入力 し て ヘロン の 公式 で 面積 s を 求め な さい . 2pーa 十 b 十 c と する と , 
ゞ (pa) (一 b) (p 一 c) で ある . 

[1-4] ある 金額 を 入力 し , 100 円 10 円 1 円 玉 だ け で 支払 うと き , それ ぞ れ 何 枚 必要 か (で きる だ け 少 な 


く ) を 表示 し な さい . 
[1-3] 平面 上 の 点 (x, y) の 座標 値 を 入力 し て > 0 と する ), 原点 と の 距離 V(x2+y2?) と , * 軸 と な す 角 ( 度 ) 
を 計算 し な さい . 


[1-6] 2 数 a,b の 値 を 入力 し て , 相 加 平均 と 相乗 平均 を 計算 し な さい . a,b と も に 正 と する . 

[1-7] 実数 x の 値 を 入力 し , 小数 点 以下 第 2 桁 目 を 四捨五入 お よび 切り 捨て て , 表示 し な さい . 

[1-8] x の 値 を 入力 し て 次 の 関数 値 を 計算 し な さい . a, b, c, d は 定数 宣言 で 与え , 乗算 の 回 数 を な る べく 
少な くし な さい . f(x) = ax" 十 bx^ 十 cx 十 d 

ヒン ト : ((a*x 十 b) *※x 十 c) *※x 十 d と いう 式 を 用 いる 

[1-9] 2 つの 複素 数 a 二 bi, c 十 di の 実 部 ・ 虚 部 a, b, c, d を 入力 し , 四則 演算 結果 の 実 部 ・ 虚 部 を 表示 し な 
さい . 

[1-10] 2 数 a,b の 値 を 入力 し て 四則 演算 の 結果 を 表示 し な さい . た だ し exp と In を 用 いて , 加減 算 に つい 
て は 乗除 算 で , 乗除 算 に つい て は 加減 算 で 結果 を 求め な さい . 


3.2 条件 判定 


(8) 普 文 

ある 条件 を 満た し た と き に , 特定 の 処理 を 行う の が 下 文 の 役目 で ある . 日 常 会 話 で 次 の よう な 
例 が ある . 

A: も し 「 雨 」 な ら ば 「 洗 濯 物 を 取り 込む 」 

B: も し 「 雨 」 な ら ば 「 映 画 に 行く 」 そ う で な けれ ば 「 ハ イキ ング に 行く 」 
これ ら に 対応 し て 直文 の 書式 は 次 の よう に 2 通り ある . 
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A (if-then) 論理 式 then 文 
B (if-then-else) ・ if 論理 式 then 文 」 else 文 


論理 式 は , 結果 が 論理 型 に な る 式 や 論理 型 変数 の こと で , 普通 は 整数 や 実数 の 大 小 比 較 な ど が 論 
理 式 に な る . 大 小 比 較 は 2 つの 式 や 変数 定数 を こく > = な どの 記号 で 結ん だ も の で ある . 

ifa ぐ 0thena: ニーa 
この 正文 で は , a<0 の 部 分 が 論理 式 で ある . 論理 式 の 結果 は , true ( 真 ) また は false ( 偽 ) の どちら 
か に な る . 式 が 成立 し て いれ ば true, それ 以外 は false に な る . この 下 文 が 実行 され た と き の a の 
値 が 1 と か ー2 の 場合 は true に な り , 後ろ の 代入 文 が 実行 され る . この 例 で は 結果 と し て |al を 
求め た こと に な る . AGf-then) の 形式 で は , 論理 式 が true で ある 場合 に 限り 文 を 実行 する . B 
Gf-then-else) の 形式 で は , 論理 式 が true で ある 場合 に 文 」 を 実行 し , 論理 式 が false の 場合 に は 文 > 
を 実行 する . B の 形式 で は , else の 前 の 文 に : を 付け て は な ら な い 

ifb*b>= テ 4*a*cthen writeln(' 実 根 あ り ) 

else writeln (' 実 根 な し ) 

この 正文 で は , Pb” の 値 が 4ac 以上 の 場合 は 論理 式 が true に な り , ” 実 根 あり "と 表示 され , それ 以 
外 の 場合 は ' 実 根 な し ' と 表示 され る . 
大 小 比 較 に は 次 の よう な 6 種類 が あり , その 結果 は 論理 型 に な る . これ ら の 比較 を 関係 演算 子 と いう . 


A=B ・A は B に 等 し ぃ A<>B ・A は B に 等 し く な い 
A>B  :A は B よ り 大 きい A>=ーB  :A は B 以 上 で ある 
A ぐ <B ・A は B よ り 小 さい A<=B ・A は B 以下 で ある 


A, B は 整数 型 ま た は 実数 型 の 式 ( 変 数 , 定数 ) な ど で あ る . 普通 は , 整数 型 ど うし , 実数 型 ど う 
し を 比較 する が , 整数 型 と 実数 型 を 比較 し た 場合 は 実数 型 に 変換 され て 比較 され る. な お , A> 
B は , B ぐ ん A と 同じ で あり , A>= ニ B は , B<=A と 同じ こと を 表し て いる . 

条件 が 成立 し た 場合 に 複数 の 文 を 実行 し た いと き は , 文 を 複合 文 に する . つま り そ れ ら の 文 を 
begin と end で 囲む . 同じ よう に , 条件 が 不成立 の 場合 に 複数 の 文 を 実行 し た いと き は else 以下 を 
複 全文 に する . この と きも else の 前 の end に : を 付け て は な ら な い . 

ifimod2 =0then begin 
writeln,' 偶数 ): 
1i: =idiv2 

end else begin 
writeln Gi,' 王 奇数 ): 
1: 三 3※*i 十 1 


end 
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全 還 3S 泊 催 較 の 鏡 議 ndetenafrtrsefhidOvoeewyeetedcfrveefSPkteiGRavcderE 宮 veY8eryerwWr が seevaverrwaarea 
平面 の 座標 値 xy を 入力 し て , 第 何 象限 か を 判定 する . 原点 , xy 軸 上 は 考え な く て よい . 


プ ) ロ ダグラム 33 


{ *** 座標 の 象限 *** )} 


progTam prog3 3(input, output) : 
WaT %。 \ で 8 
1 : integer: 
begin 
write(' 座標 の xy ?): 
readln(x, y) : 
if x>0 then i:=1 else 1i:=2: 
if y<0 then ji:=5-1i: 
writeln( 第 ,i, 象限 で す .') 


end. 


+ー < こぐ どど ここ コ の の ら <m 反 ここ 呆 


テー を 


普通 に 考え る と , 
fx>0then 
ify>0then i: 三 1else i:= テ 4 
else 
ify>0then i: 三 2else i: 三 3 
と な る が , 上 の プロ グラ ム 3.3 の よう に も で きる . 


実数 値 の 比較 に つい て 
計算 で 得 られ た 実数 値 を , 
if x=y then.…. 


の よう に 比較 する 場合 は 十分 注意 し た い . 計算 に は 誤差 が 含ま れる の で , 場合 に より , 


下 abs(x 一 y) <eps then.…… 
の よう に し な けれ ば な ら な い . eps の 値 は 計算 の 種類 や 型 (real, extended な ど ) の 人 違い で 変わ る が 1.e-8 一 
1.e-16 程度 の 値 が 用 いら れる . 実数 の 四則 演算 や 関数 の 計算 に は 誤差 が 含ま れる と いう こと に 注意 し た い . 


⑪) 論理 演算 
上 の 例題 で 第 1 象限 だ け を 表す 場合 , 
if x>0O then 下 y>0 then i:=1 
と いう 2 重 の せ 文 に な る が , これ は x> 0 と いう 条件 と y> 0 と いう 条件 が 両方 同時 に 成立 する 
場合 で ある . 言い 換え る と , x>0 か つ y ッ > 0 と な る . 日 常 会 話 で も , A と B の 件 が 両方 生じ た 
場合 と か , A また は B どちら か が 生じ た 場合 な ど , 論理 的 な 場合 分 け を 行なう こと が よく ある . 
も し 「 雨 」 ま た は 「 く も り 」 な ら ば 「 花 は 開か な い 」 
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演算 子 例 


or ⑪=2)orG =3) | 論理 和 , どちら か が true の と き true 
xor |G く >0)xorj= テ 0) | 排他 論理 和 , 両者 の 値 が 異な る と き true 
not not(x ぐう 5) 反転 (true 一 false, false 一 true) 


も し 「 雨 」 か つ 「 強 風 」 な ら ば 「 雨 漏 り が する 」 
プロ グラ ム を 組む 場合 も , この よう な 場合 分 け は 頻繁 に 起こ り , その た め の 論 理 演算 が 用 意 さ れ て 
いる . 
この よう な 論理 演算 に は , 次 の よう な 論理 積 , 論理 和 , 排他 論理 和 , 否定 が ある . 
論理 積 や 論理 和 の 演算 の 場合 , true 一 1, false 一 0 と 考え , 0 と 1 の 積 ・ 和 を 考え る と 理解 し や 
すく な る . 排他 論理 和 (exclusive or) の 演算 は 前 後 の 論 理 式 の 値 が 異な る と true, 同じ で ある と 
false に な る . 
二 つ の 論理 式 を and で つなぐ と 二 つ と も true の と き 全 体 の 値 が true に な る . た と えば , 
(0 <=a) and (a < くう 5)、 
この 論理 式 で は , た と えば a 三 3 の と き は and の 前 後 の 両方 の 論理 式 が truc に な り , 全体 が true 
に な る . a ニ テー1 や a= テ 6 の 場合 は 一 方 が true で も う 一 方 が false で ある か ら , 全体 で は false に 
な る . つま りこ の 論理 式 は 0 以上 3 未満 の 数 を 示す こと に な る . 同じ よう に これ 以外 の 範囲 の 数 を 
示す に は , 
(a く 0) or ($⑮ <= ョ a) 
と な る . な お , これ ら の 記述 で , and, or の 方 が 演算 の 優先 順位 が 高い た め , ( ) は 省略 で き な い 
の で 注意 する こと . 
と ころ で , ①ifathen A と いう 文 で , 文 A ん が 下 bthen BelseC と いう if 文 で ある と する と 全 
体 で は , 
ifathenifbthen B else C 
と いう 文 に な る . 一 方 , ⑦② ぜ athen A else C と いう 文 で , 文人 が 下 bthen B と いう 文 で ある と 
する と 全体 で は , 
下 athenbthen B else C 
と ① の 例 と まっ た く < 同じ に な る . この よう な 場合 , else に 対応 する 導 は その 直前 の 導 と いう こと 
に な っ て いる の で , ① の 形 で ある と みな され る . ぐ ①⑫ の 例 の よう に し た い 場 合 は ぜ bthenB を be- 


ショー ト サ ー キ ッ ト 
AandBthen.…. と いう 正文 で は A=false の と き Aand B 全体 は 必ず false に な る . この と き B が 
true か false か を 調べ な い の が short circuit で , 調べ る 処理 を complete と いう . TURBO Pascal で は コン 


パイ ル 時 の オプ ショ ン で どちら に する か を 選択 で きる . 
ifAorBthen.…. で Atrue の と きも 同じ で ある . 
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gin end で 括る 必要 が ある . 
if athen begin if b then B end else C 


(c) case 文 
潤 文 を 使っ て 幾 通り か の 場合 分 け を する こと が で きる . た と えば 郵便 物 の 重 さ が 25g 以 下 の と 
き の 料 金 は 62 円 , それ 以上 は 72 円 で ある か ら , 重 さ を 入力 し て 料金 を 決め る と いう 2 通り の 場合 
分 け は 次 の よう に な る . 
if weight <= 25 then charge : 三 62 
else charge : 三 72: 
も っ と 細か い 場 合わ け を 行う 場合 は (定形 外 1 kg 以下 の 郵便 物 ) , 
i 下 weight <= 50 then charge : 三 120 
else weight <= 100 then charge : 三 175 
else if weight <= 250 then charge : 三 250 
else 下 weight ご = 500 then charge : 三 360 
else charge : 三 670 
と な り , 一 else if 一 else 導 一 …… else と いう 構文 で 細か い 場 合 分 けが 行え を る こと が わか る . 
場合 分 け で , 整数 値 の 様々 な 値 に 対応 し て 異な る 処理 を 行なう 場合 は , case 文 が 役に立つ . case 
文 の 書式 は , 次 の 通り で ある . 


case 整数 式 of 」 
case ラベ ル , .…, case ラベ ル : 文 : 
case ラベ ル , …, case ラベ ル : 文 : 
else 文 : … 文 : 

end 


case ラベ ル は , 
① 定数 また は 
② 定数 .. 定数 (定数 = 定数 >) 
で ある . case 直後 の 整数 式 (結果 が 整数 型 に な る 式 ) の 値 が case ラベ ル に 対応 する と き , つま り ① 
の 場合 は 定数 の 値 に 等 し いと き , ①② の 場合 は , 定数 以上 定数 : 以下 の と き , その 次 の 文 を 実行 し , 
end へ 進む (case 文 を 終了 する ). case ラベ ル に 対応 する 文 が 複数 の と き は 複 文 (begin end で 囲 
む ) に する. 
すべ て の case ラベ ル に 対応 する も の が な いと き は else の 次 の 文 の 集まり を 実行 する . た だ し 
「else 文 : .……. 文 」 の 部 分 を 省略 する こと も ある . 
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例 
case month of (month は 整数 型 の 変数 と する ) 
1.3.5.7.。 8.10.12 5:days 。 三 31 ) 
4.6.9.11 : days : = 30: 
2:days: 三 28: 
end 


1 較 紳 溢 数 に 和 ず る 訂 績 に eyesreeoereOLAEecsAR。 ea 
ある 大 学 で は , 80 点 以 上 , 63 点 以 上 , 30 点 以 上 , それ 未満 に つい て それ ぞ れ , A,B,C,D : 
の 成績 が つく . 点数 を 入力 し て 成績 を 表示 する . 


プロ グラ ム 3.4 


1 | { ** 点数 に 対す る 成績 *** ] 
2 | program prog3_4(input, output) : 
3 | Var 1i : integer: 

4 | begin 

5 write( 点数 ? '): readln(i) : 
6 write(' 成 績 は '): 

7 

8 


caSe i of 


0..49 : write('D') : 
9 50..64 : write('C ): 
10 65..79 : write('B') : 
貞和 80..100: write(A'): 
12 else write( 入力 エラ ー') 
13 end: 
14 writeln( で す .') 
15 | end. 


(d) 論理 型 変数 
と ころ で , 整数 や 実数 同様 , 論理 型 変数 が ある . 論理 型 は , true( 真 ) また は false ( 偽 ) の どちら 
か の 値 を と る . 型 名 は , boolean で ある . 
Var bool : boolean: 
次 の よう に 定数 や 大 小 比 較 の 結果 を 代入 する こと が で きる . 
bool : 三 false : 
bool: ニ ョ >5: 
bool : 三 not(a > b): 
bool : 三 b*b 一 4.0*a*c 三 0.0: 
論理 変数 の 論理 演算 は , A and B, A or B, not A の よう に その 結果 も 論理 型 と な る . TURBO 
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Pascal で は 論理 式 の 値 を write 文 に より 出力 する と , 値 に し た が っ て TRUE また は FALSE と 表 
示さ れる . た だ し 入力 する こと は で き な い . また ord と いう 関数 に より , 論理 式 の 値 を 0(false) ま 
た は 1(true) の 整数 型 に 変換 で きる . 


金 整数 の 内 部 表現 と bt 演算 
整数 型 に つい て も , 論理 演算 が 定義 され て いる . 整数 型 の 内 部 表現 は 2 進数 で 表 さ れ , 論理 演算 に は 次 
の よう な 演算 が 用 意 き され て いる . これ ら は 


iand]j  i と ]j の 対応 する ビッ ト ど うし の 論理 積 

ior ] i と j の 対応 する ビッ ト ど うし の 論理 和 

i xor j i と jj の 対応 する ビッ ト ど うし の 排他 論理 和 
not i i の 各 ビ ッ ト の 0 と 1 を 交換 


ishl ] i を j ビ ッ ト 左 シフ ト ( 左 に ずら す ) 

ishr j i を ]j ビ ッ ト 右 シフ ト ( 右 に ずら す ) 
i = 0101001101001111 

j 三 1010111100110100 


例 


i and ] = 0000001100000100 not i 三 1010110010110000 
i orj 三 1111111101111111 ishl 3 = 1001101001111000 
ixor]j 三 1111110001111011 i shr 3 = 0000101001101001 


式 に 一 般 の 数 値 計算 の 演算 子 や 関係 演算 子 , 論理 演算 子 が 混ざっ て いる 場合 の 優先 順位 は 次 の よ 
うに な る . 


1) 単項 演算 子 : 一 

2) not 演算 子 : not 

3) 乗法 演算 子 : *, /, div, mod, and, shl, shr 
4) 加法 演算 子 : 十 , 一 , or, xor 

$) 関係 演算 子 : ニ , く >, <, >, く =, > ニー 


な お 論理 値 の 大 小関 係 は , 論理 演算 で や っ た よう に false = 0, true 三 1 と 考え て よく , false < 
true と な っ て いる . し た が っ て , 
if (x= ニ 0)= テ (<>0)…… 
ぜ < く 0) く < く 0)…… 
の よう に 論理 値 の 大 小 比 較 の 記述 も で きる . 論理 値 ど うし を <> で 比較 する こと は exor に 等 し い 
こと が わか る . また 上 の 表 の 優先 順位 より , 
Aornot BandC 
と いう 論理 式 で は , ①B の 否定 , ⑦②C と の 論理 積 . ③A と の 論理 和 の 順 で 演算 が 行わ れる . 
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(e) 練習 問題 
[2-1] 通常 郵便 で 送れ る 箱 の 大 き さ は 幅 a, 奥行 き b, 高 さ く が すべ て 60 cm 以下 で 合計 が 90 cm 以下 で あ 
る . a,b,c を 入力 し て 通常 郵便 か それ 以外 か を 表示 し な さい . 
[2-2] 身長 , 体重 を 入力 し て 肥満 か 標準 か 痩せ 型 か を 示し な さい . 体重 が (身長 一 100) *0.9 上 10% の 範囲 で 
あれ ば 標準 と みな す . 
[2-3] 3 数 a,b,c を 入力 し て 最大 値 を 示し な さい . 
[2-4] 4 数 a,b,c,d を 入力 し て 最大 値 示 し な さい . 
[2-5] 平面 座標 値 x,y を 入力 し て x 軸 と な す 角 度 (0 ミ t<360) を 計算 し な さい . 
[2-6] 3 辺 の 長 さ a, b,c を 入力 し て 三角 形 が 成立 する か どう か を 判定 し な さい . a, b,c は 正 と する . 
ヒン ト : |b 一 cl, b 十 c, a の 大 小関 係 は ? 
[2-7] 西暦 年 (1868 以上 ) を 入力 し て , 明治 , 大 正 , 昭和 , 平成 何 年 か を 表示 し な さい . 明治 , 大 正 , 昭和 , 
平成 元 年 は .。 それ ぞ れ 1868, 1912, 1926, 1989 年 で ある . 元 年 を 優先 する が , 元 年 の 表示 は 1 年 で も よい . 
[2-8] 西暦 年 y を 入力 し て 閣 年 か どう か の 判定 を し な さい . 4 で 割り 切れ る が 100 で 割り 切れ ず , た だ し 
400 の 倍数 で あれ ば 関 年 で ある . 
[2-9] 月 と 日 を 入力 し て その 星座 を 表示 し な さい 
3/21 一 4/20 牡 半 座 7/23 8/22 凶 座 11/2312721 射手 座 
4/21 一 5/21 牡 生 座 8/23- 9/23 乙女 座 12/22- 1720 山羊 座 
$/22 一 6/21 双子 座 9/24 一 10/23 天 竹 座 "1/21 一 2/18 水瓶 座 
6/22-7/22 艦 座 10/24-11/22 湊 座 2/19- 3/20 魚 座 
[2-10] 3 つの 数 a,b,c を 入力 し て メジ アン (中 央 値 ) を 示し な さい . 


3.3 繰り 返し 処理 


Pascal に は 文 の 反復 を 行う 3 種類 の 繰り 返し 文 が ある . 繰り 返し 回 数 が わか っ て いる 場合 に は 
for 文 , 条件 に よっ て 繰り 返し を 行う 場合 に は while や repeat 文 が 利用 で きる . 


較 単 純 繰 り 返 し for 文 
画 条 件 成立 繰り 返し while 文 
一 条件 不成立 繰り 返し repeat 文 


(4) 単純 繰り 返し (for 文 ) 
ある 処理 を あら か じ め 決 まっ た 回 数 だ け 繰 り 返 し 行なう た め に 用 いる の が for 文 で ある . for 文 
に は 次 の 2 種類 が ある . 


for 制御 変数 : 式 to 式 。 do 文 
for 制御 変数 : = 式 」 downto 式 。 do 文 
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制御 変数 . 式 i, 式 > に は 整数 型 を 用 いる こと が 多い . 上 の 形式 は , 制御 変数 の 値 が 式 , の 値 か ら 
式 。 の 値 ま で 順に 1 つ ず つ 増 加 し な が ら , do の 後ろ の 文 が 繰り 返し 実行 され る . 普通 , 式 i の 値 く 
式 > の 値 で あり , 式 i の 値 > 式 > の 値 の 場合 は 文 は 一 度 も 実行 され な い . 式 」 の 値 = 式 > の 値 の 場合 
は 一 度 だ け 実 行き され る こと に な る . 

to の 代わ り に downto を 使え ば , 制御 変数 値 が 減少 する 向き の 反復 も 指定 で きる . 反復 され る の 
は 1 個 の 文 で あり 反復 実行 すべ き 文 が 複数 の と き は , begin end で は さん で 複合 文 と する . 制御 
変数 の 型 は 整数 型 (正確 に は 実数 型 以 外 の すべ て の 順序 型 ) で ある が , 制御 変数 , 式 」 の 値 , 式 > の 
値 は 同じ 型 で な けれ ば な ら な い . 


for 文 の 文例 集 


0 8 三 05 1 一 n の 和 
fori:=1tondo 
S: 三 S 十 i 

② fori: =j 十 1to2*j do 式 :, 式 > が 式 
a: 三 a 十 i 

③ fori:= ニ 1tondobegin 繰り 返し が 複合 文 
writeln(1ー "1): 
k : ニ k 十 i 
end 
fori:=1tondo 


forj: ニ 1tomdo 
writelnG。"*「j, 三 1※)) 
fori:=10 downto 1 do 


writeln (1 : 3) downto 


① は 1 か ら n まで の 和 の 計算 で ある が , この よう な 手法 は 一 種 の 定石 と な っ て いる の で 覚え て お 
く と よい . また ① め は , 式 1, 式 2 が 定数 ・ 変 数 で な い 例 で ある . 繰り 返し が 複数 の 文 に な る と き は 
文 を begin end で 囲ん で 複合 文 と する . 繰り 返す 文 が for 文 の と き は 多重 の 繰り 返し と な る . ④ 
の 例 で は nXm 回 文 が 繰り 返さ れる . 
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[例題 3.5] 三平 方 を 満た す 自 然 数 ………… バ … パ ドド Se : 
N 以下 の 3 つの 自然 数 A, B, C(A ミ B ミ C) で , AZ 十 B? = C? を 満た す も の を 探す . 


プロ グラ ム 3.5 


{ *** 三平 方 を 満た す 自 然 数 *** ] 
program prOog3_5(input, output) : 
Var a, b, c, n : integer: 


1 

2 

3 

4 

5 | begin 
6 write( 最大 値 ? '): 
7 

8 


readln(n) : 
for a := 1 to n do 
9 for b :=a ton do 
10 for c := b ton do 
11 if a*a+ b#*b = c*c then 
12 writeln( A= ,a:3。 B= ,b:3. 。 C=',c:3) 
13 | end. ] 
ーー 
実行 例 
最大 値 ? 20 
= 3 B= 4 C= 5 
= 5 B= 12 (= 13 
= 6 B= 8 (= 10 
= 8 B= 15 C= 17 
= 9 B= 12 C= 15 
A= 12 B= 16 (= 20 


(b) 条件 付き 繰り 返し (while, repeat 文 ) 

繰り 返し の 回 数 が 決ま っ て いる と まき は for 文 が 便利 で ある が , 実数 型 変数 を 制御 変数 と し て 使い 
た い , ある 条件 で 繰り 返し を 終了 し た い , な どの 場合 は , while や repeat と いっ た 条件 付き 繰り 返 
し が 便利 で ある . 

ある 条件 を 満た す と き , 繰り 返し を 行う の が while 文 で ある . while 文 の 書式 は 次 の よう に な っ 
て いる . 


while 論理 式 do 文 」 


論理 式 の 評価 結果 が true の 間 , do の 後ろ の 文 が 繰り 返し 実行 され る . 反復 すべ き 文 が 複数 個 あ 
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っ て 複合 文 と する と き は , for 文 の 場合 と 同じ よう に begin end で 囲む . while の 論理 式 の 値 が 最初 
か ら false で ある 場合 に は , 文 は 一 度 も 実行 され な い . また 繰り 返し 文 の 実行 に よっ て 論理 式 が 
true の まま 変化 し な い 場 合 は 無限 ルー プ と な る . 
例え ば , 変数 nm を 1 で 割り 切れ な く な る まで 割り 続け る に は , 次 の よう に する . 


whilenmodi 王 0don: 三 ndivi 


while 文 の 文例 集 
③⑬ 1? 三 m5 
while i> 0 doi: ニュ ー1 
⑳⑩)、t? 三 せ 5 
$S: =0: 
whilei> 0dobegin 1-n の 和 


S・ 王 s 十 i: 繰り 返し が 複合 文 
1: ニュ ー1 
end 
③ while true do write("*)) 強制 的 無限 ルー プ 
止め る に は CTRL-C 


① は n 回 の 繰り 返し で , この よう に する か , 次 の よう に する . 
1 呈 介 一 4 
whilei こ ndoi: = ニュ 十 1 
② は ① の 応用 で 1n まで の 和 を 計算 する 例 で ある . do の 次 が 複合 文 に な る . ①③ は 強制 的 無限 
ルー プ の 例 で 画面 に * を 書き 続け る . 中 止 す る に は CTRL キー を 押し た まま c を 押す . 


無限 ルー プ に な っ た ら . . 
間違え て 無限 ルー プ に 入っ た ら , CTRL-C(CTRL キー を 押し な が ら c を 押す ) を 押す . 終了 し な いと き は , 
CTRL キー を 押し な が ら PAUSE キー を 押す と 終了 で きる . パソ コン の 機種 に よっ て は STOP キー を 押す . 


また 表示 を 一 時 的 に 止め る に は CTRL-S(CTRL キー を 押し な が ら s を 押す ) で 止め て , 他 の キー 例え ば ス 
ペー スキ ー を 押す と 表示 を 続け る . 


repeat 文 も while 文 と 人 て いる が , ある 条件 式 が 満た され な い 場 合 に 繰り 返し を 行ない , 条件 式 
が 成立 し た 場合 , 繰り 返し を 行なわ な いで 次 の 処理 に 進む . repeat 文 の 書式 は , 


repeat 文 untl 論理 式 


で ある . 
文 を 実行 し , 論理 式 の 値 が true で あれ ば 繰り 返し を し な いで 次 の 処理 へ 進み , そう で な けれ ば 文 
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の 実行 を 繰り 返す . 
while 文 と 異な り , 初め に repeat と until で 囲ま れ た 文 を 実行 し , 論理 式 を 満た し て いれ ば 次 の 
処理 に 進み , それ 以外 の 場合 は 文 を 繰り 返し 実行 する . 繰り 返し の 文 は , repeat と until で 囲ま れ 
て いる の で , 文 が 複数 に な っ た と き で も begin end で 括る 必要 は な い . 
例え ば , デー タ と し て 正 の 整数 を 入力 すべ き と き に , 間違え て 負 の 数 を 入力 し な いよ う 正 の 数 を 
入力 する まで 繰り 返し を 続け る と き は 次 の よう に する . 
repeat 
write(' 正 の 整数 ?): 
readln (n) 
untiln>0 
この 場合 は while 一 do より も repeat 一 until の 方 が 使い や すい . 


repeat 文 の 文例 集 
⑳⑩。 3 三 還 3 
TeDeat 
1: ニュ ー1 
unili=0 
1: 三 1: 
に 3 


repeat 1-n の 和 
S: 三 3 呈 i 繰り 返し が 複合 文 
1: = ュ 十 1 
untili>n 
G③ repeat 
write('*) 強制 的 無限 ルー プ 
until false 止め る に は CTRL-C 


① は n 回 の 繰り 返し の 基本 形 で ある . ② は ① の 応用 で 1 一 n まで の 和 を 計算 する 例 で ある . 
repeat until の 中 が 複合 文 に な る . ③ は 強制 的 無限 ルー プ の 例 で 画面 に * を 書き 続け る . 中 止 する 
に は CTRL キー を 押し た まま c を 押す . これ ら ①②⑦②③ は while 文 の ①②⑦②①③ と 対応 し て いる . 

while 文 , repeat 文 の 練習 と し て 整数 の 素因 数 分 解 を 行っ て みる . n 計 1 が 入力 され る まで , 入 
力 ・ 計 算 を 繰り 返す . 


【 例 束 33:6], 全 因 数 分 解 和 manorfhTn22YHSuTaERRdEEGBSRPSRSSR33253 な 253f8ESSRSER333R6 ま 2RRSEE2AR2T135A4 な ed : 
整数 n の 素因 数 分 解 を 行う . 
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プロ グラ ム 3.6 


1 | {| まま 素因 数 分 解 *** ]} 
2 | program Drog3_6(input, output) : 
3 | var 1 In : integer: 

4 | begin 
5 

6 

7 

8 


repeat 

write(n ?「): 

readln(n) : 

ifn<= 1 then halt: { 終了 )} 
9 write(n, = 「): 
10 5 が 
11 repeat 
12 whilennmod ii = (0) dobegin 
13 n := nm diV i: 
14 ifn = 1 then writeln(i) 
15 else write(i,'* ) 
16 end: 
17 1 3:= ェ 1+ キ 1 
18 untiln = 1 
19 until false 
20 トド 二 人 
実行 例 
n ? 1234 
1234 = 2*617 
n ? 2345 
2345 = 5*7*67 
n ? 3456 
9456 = 2*2*2*2*2*2*2*3*3*3 
n ? 4567 
4567 = 4567 
n ? 5678 
5678 = 2*17*167 
n ?0 


この 例題 で は , 整数 n を 整数 i で 割り きれ る まで 割る 繰り 返し が while do で 表 さ れ て いる . ま 
た i を 2 か ら 増 や し て いく 繰り 返し が repeat until で 表 さ れ て いる . さら に 人 入力 と 計算 ・ 表 示 を 繰 
り 返す 無限 ルー プ の 繰り 返し が あり , 3 重 の 繰り 返し と な っ て いる . 終了 は 入力 し た n の 値 が 1 以 
下 の と き , halt と いう 終了 手続 き で 終了 する (無限 ルー プ か ら 抜 け 出す ) よ うに な っ て いる . 


(c) goto 文 
goto 文 は 繰り 返し を 行う 文 で は な い が , 下 文 な ど と 組み 合わ せ て 使う こと に より for, while, re- 
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peat と 同じ よう に 繰り 返し を 行う こと が で きる . 

goto 文 が ある と 次 の 文 を 実行 し な いで , goto 文 に 書か れ た ラベ ル に ジャ ンプ し て 処理 の 流れ を 
変え た る. ジャ ンプ 先 の 文 に は , ラベ ル : を 付け る . ラベ ル は 正 の 整数 値 ま た は 一 般 の 名 前 (変数 名 
と 同じ ) で , 変数 宣言 と 同じ よう に label 定義 し て お く 必 要 が ある . 別 の プロ ッ ク ( 他 の 手続 き ) に 
は ジャ ンプ で き な い . 


1 | program sqrt3(output) : 

2 | 1abel 55: 

3 | VaT X, 》y : Te68]1: 

4 | begin 

5 X:=3: 

6 | 55: 

7 Y:=X: 

8 x:=(x+3/x)/2: 

9 writeln( sqrt(3) = ',x): 
10 if abs(x-y)>1.e-8 then goto 55: 
11 | end. 


この プロ グラ ム で は , 処理 の 流れ は repeat until に ほぼ 等 し い . 同じ よう に for 文 や while 文 の 代 
わり に goto 文 が 使え る が , goto 文 を 用 いる と プロ グラ ム 全 体 の 構造 が わか り に くく な る の で , や 
た ら に 使わ な い 方 が よい . 

TURBO Pascal で は , プロ グラ ム の 実行 を 停止 する halt 手続 き を 使う こと も 一 種 の goto 文 の 使 
用 と 同じ 効果 を 持つ . 


金 逢 数 に つい て 

TURBO Pascal で は 乱数 が 使え る . randomize と いう 手続 き 文 で 初期 化し , random と いう 関数 で 0 以 
上 1 未満 の 一 様 乱数 を 発生 する . また random (n) の よう に 引数 を 付け る と , 0 以上 n 未 満 の 整数 値 を ラン 
ダム に 発生 する . randomize を 使わ な いと 常に 同じ 乱数 列 が 得 ら れる . 


randomize : 
i: 三 random (100) : | 0 以上 99 以 下 の 整 数 | 
x : 三 random : | 0 以上 1 未満 の 実数 | 


(④ 練習 問題 
は -1] 0 度 か ら 90 度 ま で の 5 度 き ざ み の 角度 に 対し , sin と cos の 値 を 表 に し な さい . 
[は -2] n 個 の ナー ム が 総 当 た り で 対戦 する と き , 対戦 試合 の 組合 せ を 表示 し な さい . 例え ば 4 チー ム の と き は 
1 と 2, 1 と 3 1 と 4 2 と 3 2 と 4 3 と 4 に な る . 
[3-3] i と jj を 入力 し , ユー クリ ッ ド の 互 除法 で 最大 公約 数 を 計算 し な さい (⑪ 三 } と する ). i を] で 割っ た 余り 
k が 0 の と き j が 最大 公約 数 ペ そう で な けれ ば i に j, j に k の 値 を 代入 し て k = 0 に な る まで 繰り 返す . 
[3-4] 1 一 1000 まで の 乱数 値 を 1 つ 作り その 数 を 当て な さい . x を 入力 し て n よ り 小 さい か 大 きい か を 表示 し 
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て , x 三 nm に な る まで 繰り 返し 入力 する . 
ヒン ト : n: random(1000) 十 1 : 
[3-5] 自分 自身 を 除く 約 数 の 和 が その 数 に 等 し い 数 を 完全 数 と 言う ( 例 6 =1 二 2 十 3). 2 一 500 まで の 完全 数 を 
捜し て みな さい . 300 を 越え る 次 の 完全 数 は 8128 で ある . 
[3-6] 整数 n を 入力 し , n 人 の 中 の 誰か 2 人 の 誕生 日 が 一 致す る 確率 を 計算 し な さい . また その 確率 が 0.5 を 
越え る 最小 の n を 求め な さい . 
[3-7] n を 入力 し , 次 の 数 列 の 1 一 n 番目 の 項 を 示し な さい . 
(1) 1.2.3.4.5.6.7.8.9.10, .… 


あう うー うど っ ピッ ピ ゃ 


②) 1.3.5.7.9.11.13.15.17, … 


ka 人 0 た) 


3) 。 1,2,3,1.2.3.1.2.3, … 
(4④) 1.2,4.8,16,32.64, .… 
($⑤) 1.3,6,10,15,21.28, .……(3 角 数 ) 
(6) 1.6,15,28,45,66.91, .…(6 角 数 ) 
[3-8] 次 の 級数 和 は , ヵ ^/8 に な る の で これ を 利用 し て ァ の 値 を 計算 し な さい . 
s 三 1 十 1/3? 十 1/52 十 1/7* 十 1/9^… 
収束 は 遅い の で 注意 . 
[3-9] 指数 関数 の テー ラー 展開 を 用 いて 自然 対数 の 底 の 値 を 計算 し な さい . 
exp 三 1 十 1/1! 上 1/2! 十 173 1! 上 1/4! 二 の …… 
= 2.7182818284……… 
[3-10] AO の 紙 の 大 き さ は 縦 840 mmX 横 1188 mm で あり , A1 は その 半分 (面積 ) の 大 き さ で 縦 594 mmxX 横 
840 mm, A2 は 420 mm※594 mm で ある . n(0 玉 n ミ 8) を 入力 し て An の 大 き さ を 示し な さい . 


3.4 配 列 


@) 配列 

いま まで 扱っ た 変数 で は , 1 つの 変数 は ある 瞬間 に は 1 つの 数 値 し か 記憶 で き な い . し か し 実際 
に は , た くさ ん の 数 値 を 入力 し て 平均 や 標準 偏差 を 計算 する と か , 小さ い 順 に 並べ 直す と か , 多数 
の まとまっ た 数 値 を 効率 よく 扱い た いこ と が 頻繁 に 起こ る . この よう な デー タ の まとまり を 効率 よ 
く 扱え る よう に し た の が 配列 で ある . 

配列 の 宣言 は , (integer や real な ど 型 の 代わ り に ) 次 の よう に 書く . 


array [初期 値 終値 of 型 : 


例 ・ 

var data : array[1..100] of integer : 

上 は , data と いう 配列 名 で 整数 型 の デー タ を 100 個 準備 する と いう 意味 で ある . data[1], data 
[2], …, data [100] まで の 個々 の 要素 を 変数 と 同じ よう に 扱う こと が で きる . 配列 は 必ず し ゃ 宣 
言 し た 要素 の 個数 全て を 使用 する 必要 は な い の で , 余分 に 宣言 し て か まわ な い . た だ し 使用 で きる 
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メモ リ に 制限 が ある の で , この 記憶 量 を 越 を る こと は で き な い . また 実数 型 は 整数 型 よ り も 多く の 
記憶 量 を 必要 と する . 

個々 の 要素 を 指定 する に は , た と えば i 番 目 の 要 素 は , 次 の よう に 表す 


変数 名 回 また は 変数 名 (1.) 


1 の こと を 添え 字 と も 言う . 添え 字 は 整数 型 の 式 だ が , その 値 は . も ちろ ん 初期 値 ミ 添え 字 の 値 
主 終値 で ある 必要 が ある . し た が っ て 
data [1] data [| data [k 十 3] 
な どの よう に し て , 個々 の 要素 を 指定 する こと が で きる . また 宣言 時 で 初期 値 主 終値 の 必要 
が ある が (た だ し 初期 値 三 終値 は あま り 意 味 が な い ), その 値 は 正 で ある 必要 は な い . その た め , 
const n 王 3※4: 
var dat1 : array [0..n] of integer : 


dat2 : array [一 2..2] of real : 


と いう 例 も 考え られ る . 
配列 を 用 いる と , いろ いろ な 処理 の アル ゴリ ズム を 効率 よく 組む こと が で きる . 
0 


fori: 三 1tondos: =ーs 十 data 
と いう よう に 1 か ら n 番 目 ま で の デー タ の 和 が 簡単 に 求め られ る . また n 次 元 ベ クト ル の 内 積 は , 
次 の よう に な る . 

0 


fori: 三 1tondos: =s 十 v1i *v2 遇 


山 関 あ 科 0 コテ イン ゲ 6ert 衣 Syrias 
数 値 列 を 入力 し て 小さ い 順 に 並べ 変え る (ソー ティ ング と いう ). 数 値 列 の 終わ り は 0 で 示す . : 


プロ グラ ム -37 


1 | {( *** ソー ティ ング *** 

2 | program prog3 7(input, output) : 

3 | Var 1i, jj, n, tmp : integer: 

4 dat : array[1..100] of integer: 

5 | begin 

6 n := 0: { デー タ 入 力 
7 repeat 

8 人 Ne 直 

9 


write(n, 番目 の 数 値 ? '): 
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10 readln(dat[n] ) 
11 unti] dat[n] = 
12 D = エ : 


13 for i := 1 tonm.- 1 do ロロ ツー ティ ング | 
14 for j:=i+ 1 ton do 

15 if dat[j] < dat[i] then begin 

16 tmp := dat[i]: {| デー タ 交 換 } 
17 dat[i] := dat[j]: 

18 dat[j] := tmp 

19 end: 


20 write( 結果 ='): 
21 for i := 1 to n do write(dat[i] :5) : 
22 writeln 


end. 


実行 例 

1 番目 の 数 値 ? 23 

2 番目 の 数 値 ? 8 

3 番目 の 数 値 ? 4 

4 番目 の 数 値 ? 15 

5 番目 の 数 値 ? -1 

6 番目 の 数 値 ? 0 

結果 = -1 4 8 15 23 


この 実行 例 の 場合 , 入力 直後 の 配列 の 内 容 は 次 の よう に な っ て いる . 


繰り 返し 処理 で i = 1 」= 2 の と き dat[1] > dat[2] で ある か ら , 両者 を 交換 する . 2 つの 値 を 
交換 する に は , プロ グラ ム の 16 一 18 行 の よう に 別 の 変数 * に 一 方 の 値 を 保存 し て お か な けれ ば な 
ら な い (tmp は tempolary の 意味 ). 


n=5 


i=1 j=3 


同じ よう に , i= テ 1, j テ 3 で dat[1] > dat[3] で ある か ら , dat[1] と dat[3] の 値 を 交換 する . i= 
1, j= 4 で は dat[1] < dat [41 で ある か ら 値 の 交換 は な い . i ニ 1, j=$ で は dat[1] と dat[] の 値 
を 交換 する . i=1 の 繰り 返し が 終わ り dat[1] に は 最小 値 が 入っ て いる 

* 両者 の 差分 を 計算 すれ ば 別 の 変数 を 使わ ず に 済む が , exor か 加減 算 が 必要 に な る . 
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1=1 1=5 


dat [1] | dat[2] 


| 23 


同じ よう に ュー2 に 設定 し て j 3 か ら j= 3 まで の 繰り 返し が 終わ り dat[2] に は 2 番目 に 小さ 
い 値 が 入る . 繰り 返し が すべ て 終了 する と , 配列 の 数 値 が 小さ い 順に 並ぶ こと が わか る . 


varx: array[1..10]ofreal: と 定義 し た 場合 , 添字 の 範囲 は 1 一 10 に 限ら れる . し か し プロ グラ ム の ミス 
な どか ら , i=0 と か 1i= 11 の と き に x 還 を 参照 し た り , x 還 に 値 を 代入 す る こと が ある . この と き エ 
ラー が 検出 され な いこ と が ある の で , これ を チェ ッ ク す る た め に は , プロ グラ ム の 先頭 に $ R 二 | と いう 
コン パイ ラオ プシ ョ ン を いれ て お く . た だ し 実行 は 少し 遅く な る . 


(⑪) 2 次 元 配列 
上 の よう な 数 値 列 の こと を 1 次元 配列 と いう . この 他 行 列 の よう な Ai 」 の 形 (2 次 元 配列 ) の 
デー タ や より 多 次 元 の Bijk の 形 (3 次 元 配 列 ) の デー タ を 利用 する こと も で きる . 
var matrix : array [1..m] of array [1..n] of real : 
n 個 の 配列 が m 個 あ る と きこ の よう に 書け る が , 
var matrix : array [1..m, 1..n] of real : 
と いう よう に 書く こと も で きる . 例え ば , 
var a, b, c : array [一 1..4, 0..2, 1..8] of real : 
これ は , 6X3X8 三 144 個 の 実数 型 デ ー タ を 持つ 3 次 元 の 配列 a, b,c を 宣言 し た こと に な る . 3 次 
元 配列 の 各 要 素 も 2 次 元 配列 と お な じ よ うに 表す こと が で きる . 
a[1, 1, 1] bhi, j, k] ci 十 2,3*j, k div 2] 
例 と し て ベク トル ・ 行 列 の 積 を 考え る と , 次 の よう に な る . 
fori: 三 1tondobegin 
xil:=0: 
forj: 三 1tondo 
xi : テ xi 十 aij *bj] 
end 


また 行列 どう し の 積 は 次 の よう に な る . 
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fori:=1tondo 
forj:ー1tondobegm 
xi,j] : テ 0: 
fork:= ニ 1tondo 
xi,j] : = xi, jj] 十 ai, k] *b[k, jj] 


end 
end 
] 1 
k 
1 ,] OCT k : 
[例題 3.8] パス カル の 三角 形 …eoeoeoeoeoeoeeeet 


パス カル の 三角 形 を 2 次 元 配 列 で 表し , 転 置 し て 表示 する . 


1 を を 。 や 選 人 4 

1 1 p[2,1]p[2,2] 

1 2 1 p[3,1]p[3,2]p[3,3] 

ド 3 3 1 p[4,1]p[4.2]p[4.3]p[4,4 

1 4 6 4 1 p[5.1]p[S.2]p[5,3]p[5.4]p [5.31 


左 の パス カル の 三角 形 を 右 の よう に 2 次 元 配列 で この よう に 表す . 
の 際 , 見 や すい よう に 転 置 し て 表示 する . 


POOLKCCELOLKCLKKXKKAA 
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計算 は 足し 算 だ け で 済む . 表示 


プロ グラ ム 3.8 
1 | {[ *** パス カル の 三角 形 *** ] 
2 | program prog3 8(input, output): 
9 1 var 1 1 n : integer: 
4 p : array[1..20,1..20] of integer: 
5 
6 | begin 
7 write(n ? 「): 
8 readln(n) : 
9 for i := 1 ton do begin {| 計算 .} 
10 DE] 5 
11 DE も] 3= 15 
12 for j := 2 to i-1 do 
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13 p[i,j] := p[i-1,j-1]+Tp[i-1, j] 

14 end: 

15 for j := 1 to n do begin { 表示 } 
16 for i := 1 to n do 

17 if >=] then 人 j]:5) 

18 else write(' 

19 writeln 

20 end 

21 | end. 


実行 例 (n=14) 


1 上 1 1 1 1 1 1 1 1 1 1 1 1 
1 2 3 4 5 6 7 8 91 10 _ 11 2 1 

1 3 6 10 15 21: 2680 36| 45 55。 66 78 

1 4 10 20 35 56 84 120 165 220 286 

1 5 15 35 70 126 210 330 495 715 


多 配 列 の 初期 値 設定 に つい て 

TURBO Pascal で は 配列 の 初期 値 設定 を 行う こと が で きる . 型 付き 定数 定義 の 初期 値 設定 は コン パイ ル 
の と き 行 われ る の で , プロ グラ ム で 値 が 変更 され る と , 2 回目 以降 初期 値 が 変わ っ て し まう の で , 注意 す 
る こと . 


例 ・ 
const a : array [1..3] of integer (1.2.3): 
b : array [1..2,1..5] of integer =((1.2.3,4,5) , (2.3,4,3,6) ) : 


(e) 順 序 型 

case 文 や 配列 の 宣言 に 使わ れる ' 数値 .. 数値 * は 部 分 範囲 型 と いう 一 種 の 整数 型 の デー タ 型 を 定 
義 す る . 整数 型 に は デー タ の 値 の 範囲 か ら integer, longint, word, byte, shortint の 5 種類 が ある 
(TURBO Pascal ver. $ の 場合 )、 これ 以外 に 部 分 範囲 型 と 列挙 型 と いう 2 種類 の 特別 な 型 が ある . 

型 名 の と ころ が 


値 1.. 値 2 
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で あれ ば , 値 1 以上 値 2 以下 の 整数 値 に 限ら れる 部 分 範囲 型 に な る . 実際 の デー タ 型 は , byte, in- 
teger, longint な ど に な る . 値 1 一 値 2 の 範囲 を 満た す 最 小 の デー タ 型 に な る . 例え ば 0 一 255 に 収 
まっ て いれ ば byte 型 , 一 10000 一 10000 で あれ ば integer 型 に な る . 演算 や 入出 力 に 関し て は 一 般 
の 整数 型 と 同じ で ある . 

例 

var a, b, c : 1..1000 : 
5 2Z< 112735 
部 分 範囲 型 は 型 官 言 と と も に , 配列 宣言 な ど に 利用 する と 便利 で あ 


る 宣言 と いう の は , 自分 で 
デー タ の 型 や 型 の 名 前 を 定義 むす る こと で ある . 型 宣 言 は 普通 , 定数 宣言 と 変数 官 


type 型 名 ー 型 : 型 名 型 :…… 


た と えば , 次 の よう な 型 宣言 が あれ ば , 変数 宜 言 で 型 定義 る され た 名 前 を 用 いる こと が で きる . 


type seisu 三 integer: jiSsu 三 real : 


忠 


takusan 三 array [1..100] of integer : 
Var 1,],k: seisu : 整数 型 
a, b,c: j1SSUu : 実数 型 
X, y, Z・ takusan : 整数 型 配列 
し た が っ て 配列 の 宣言 に 使う に は 次 の よう に 用 いる . 
const size 三 10 : 
type dim 1..size : 
var Vector: array [dim] of real : 
matrix : array [dim, dim] of real : 
部 分 範囲 型 と は 別に , 列挙 型 と 呼ば し る デー タ の 型 が ある . 名 前 の つい た 少な い 数 の まとまり を 
表す の が 列挙 型 で ある . 列挙 型 は スカ ラ 型 と も 呼ば れる . 列 拳 型 の 定義 は 次 の よう に 異な る 名 前 を 
コン マ で 区 切っ て 全体 を ( ) で 囲む . 


(名 前 , 名 前 , 


例 : 

type suuji 三 (Zero, one, two, three) : 

Var sc1, sc2 ・ suuji : 
列挙 型 変数 に 直接 数 値 を 代入 する こと は で き な い . 入出 力 や 演算 を 行う こと も で き な い . 宣言 き 
れ た 項目 の 名 前 を 代入 する こと , 同じ 名 前 の 列挙 型 変数 どう し で 値 を 転送 する こと は で きる . た だ 
し 型 変換 関数 を 使う と 列挙 型 と 整数 型 な ど と 数 値 を 交換 する こと が で きる . 
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1・ 三 ord(Zero) : 
sc1 : 三 suuji(1: 
上 の 例 で は 宣言 され た 項目 は 先頭 か ら 0, 1, 2…… の 整数 値 に な る . 下 は その 逆 で あり , 宣言 し た 
列挙 型 の 型 名 が 整数 か ら 列 挙 型 へ の 変換 を 行う 関数 名 に な る . 
整数 型 , 部 分 範囲 型 , 列挙 型 , 文字 型 (3.7 参照 ) の こと を まとめ て 順序 型 と いう . 順序 型 は た と 
えば for 文 の 制御 変数 と し て 用 いる こと が で きる . 


forch: 三 "ato 7Z do…… 文字 型 
for sc1 : 三 one to three do…… 列挙 型 
(d 練習 問題 


[4-1] 整数 nm>0) を k 進 法 (1 <k<10) で 表し な さい 

[4-2] 数 値 列 ( 終 わり は 0) を 人 入力 し , 平均 値 と 平均 値 以上 の 個数 , 平均 値 未満 の 個数 を 表示 し な さい . 

[4-3] 月 別 降水 量 を 配列 に 入れ て 棒グラフ を 表示 し な さい . 棒 は 縦 棒 と し , 棒 の 長 さ は 大 ま か で よい . 
古 1 六 き 本 で 7 8.930 的 
mm 54,63.102,128.148.181.125 .137,193 .181. 93. 56 

[4-4] a 月 b 日 の 1 週間 (7 日 ) 後 の 月 日 を 求め な さい ( 半 年 で は な いと する ). 

ヒン ト : 1 一 12 月 の 日 数 を 配列 に 入れ て お く . 

[4-$] ある 催し 物 が a 月 b 日 か ら c 月 d 日 まで 行わ れる と き の 開 傘 期 間 (日 数 ) を 求め な さい (a 月 と c 月 は 同 

じ 年 で 関 年 で は な いと する ). 

[4-6] 例え ば 128 を x[3] = 1, x[2] = 2, x[1] = 8 と 表す . この よう に し て 2 の 100 乗 を 計算 し な さい . 

[4-7] 200 個 の 整数 型 配列 に 1 一 200 の 数 値 を 代入 し , それ ら の 数 値 が 縦 に 並ぶ 形式 の 表 を 作り な さい . は じ 
め に n を 入力 し , 横 に n 個 並ぶ よう に し な さい . 

[4-8] 整数 1234 の 回 文 数 は 4321 で ある . 回 文 数 も 同じ 桁 数 で , その 数 が 回 文 数 で 割り 切れ る 数 を いく つか 捜 
し な さい . 

[4-9] 整数 n(1ongint 型 ) を 入力 し て 金額 を 表示 する と き の よ うに , 3 桁 ご と に コン マ を 打っ て 表示 し な さい . 
例 : 12345678 一 12, 345, 678 

[4-10] x の n 次 多項式 f(x) = ax" 二 aa" 十 … 十 aix 十 ao が ある . 各 係数 ai の 値 は 配列 ail に 代入 され 
て いて , f=a[n], g ニ 0 と し て , n テ ロー1, gーg*x 十 f f ニ f*x 十 a[n] を 繰り 返し て , 関数 値 と 微 
分 値 を 計算 する の が ホー ナー 法 で ある . f(x) = x**ーx の 一 1 ミ x 主 1 の 区 間 (x の 間隔 は 0.1 と する ) に つ 
いて , x, f(x), f (x) の 値 を 表 に し な さい . 


3.5 関 数 
() 関 数 
いま まで に trunc, round な どの 変換 関数 や sim, sqrt な どの 算術 関数 を 扱っ た . 関数 の 使い 方 は , 
y : 三 sin(X) 


な ど と 記述 する こと に より , 関数 名 の ( ) の 中 に 関数 に 渡す 数 値 ( 式 ) を 書き , その 値 に 対す る 関数 
値 が 計算 され て 変数 y に 代入 され る . 
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この よう な 関数 の プロ グラ ム を 自分 で 組む こと が で きる . 次 の 例 で は , x の n 乗 を 計算 する 関数 
を 作り , それ を 円 の 面積 や 球 の 体積 計算 に 利用 し て いる 


program en_kyuu(input, output) : 


Var T, S:Tea]1: 


function beki(x,n:real):real: { 関数 
begin 

beki:=exp(n*ln(x) ) 
end: 


CoO - コ の > <n ロ < で SO テー 


に ー』 


begin | メイ ンプ ログ ラム } 
10 write(' 半径 ? '): readln(r) : 

11 S:=Di*beki(r, 2) : 

12 writeln(' 円 の 面積 = 

13 writeln(' 二 の 和 人 科 < EE 2) ) : 


14 writeln(' 球 の 体積 = 「. 4/3pi*beki(r。 3) ) 
15 | end. 


この よう に , function… か ら 次 の 複合 文 begin 一 end : まで が 関数 beki の 定義 部 分 で ある . 実行 は 
関数 の 定義 部 分 を 飛び 越え て begin の 次 の 文 か ら 始ま る . 関数 の 名 前 が ある と , その 関数 が 呼び 出 
され る . 

関数 部 分 の プロ グラ ム は , 


function 名 前 (引数 
宣言 部 


begin 実行 部 分 end: 


と いう 形 を し て いる . 関数 の 名 前 は 変数 な ど と 同じ 規則 で 決め る (1.3 参照 ). 関数 値 が 何 型 か を 示 
「: 結果 型 」 が 後ろ の に つく . 結果 型 は 必要 に 応じ て integer, real, boolean な ど に な る . 宣言 部 
で は , 関数 値 の 計算 に 必要 な 定数 や 変数 の 宣言 を 行う . 実行 部 分 に は 関数 の 値 を 返す た め , 「 関 数 
名 ・= 式 」 な どの 文 を 含む . 
関数 に は , 引数 の な い 場 合 と ある 場合 が ある . 部 の 例 を いく つか 示す 
function fc1 : real : 引数 が な い 例 
function fc2(x, y ・ real) : integer : 
function fc3 (x, y, z : real : 
i] : integer: b・boolean) : boolean : 
プロ グラ ム 後 半 の (上 の プロ グラ ム で は 9-15 行 )begin end. で 囲ま れ た 実行 部 分 を メイ ンプ ロ 
グラ ム と 言う . 関数 部 分 も 1 つの プロ グラ ム な の で , 副 プ ログ ラム と 言う . プロ グラ ム が 実行 され 
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る 場合 は , メイ ンプ ログ ラム か ら 実 行 が は じ ま り , 関数 の 参照 が ある と , その 関数 の 実行 部 分 が 実 
行 さ れる . 関数 の 実行 部 分 が 終了 する と , 再び メイ ンプ ログ ラム に 処理 が 戻る . 


[例題 391 : 
: 二分 法 で f(*) = ダーcos(<) の 解 を 求め る . f(0) <0, f(z/2) >0 で ある か ら そ の 間 に {(X) = 
| 0 と な る x が 存在 する . 


MOLKLKAIULKYTKKNIYLCIKLLIKLOUYIKKKCKLKYKYKUYYXYKKLKYPKYYXXIYYYYPLYKYKKYYKYYYI ス エメ YYTKKYYK と Yu 


プロ グラ ム 3.9 


1 | { *** 二分 法 *** ]} 

2 | program ex3 9(output) : 

3 | const eps = 1.e-6: max = 100: 
4 | var i : integer: 

5 DP きり 

6 

7 

8 


function f(x:real):real: { 関数 f(x) } 


begin 
9 f := xX*xX 一 cOS(x) 
10 | end: 
11 
12 | begin 
13 1 := 0: 
14 a := 0.0: 
15 b := pi/2: 
16 writeln( 1 :3。 ai7.b :10,」"f(x)「 :12) : 
9 repeat 
18 X := (a + b)/2: 
19 writeln(i:3.a:10:5,b:10:5,f(x) :10:5) : 
20 if f(x)<0 then a:=x else b:=x: 
21 4 を 。 入間 
22 until (ji>=max) or (abs(f(x) ) く eps) : 
23 writeln(' 解 = ',x) 


24 | end. 


実行 例 

i a b f(x) 

0 0.00000 1.57080 -0.09026 
81 0.78540 1.57080 1.00523 
2 0.78540 1.17810 0.40826 
3 0.78540 0.98175 0.14631 
4 0.78540 0.88357 0.02481 
5 0.78540 0.83449 -0.03353 
6 0.80994 0.83449 -0.00457 


に RE 宮 写 宮 まま 人 六 人 全 全う 
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16 0.82413 0.82416 0.00003 
17 0.82413 0.82414 0.00001 
18 0.82413 0.82414 0.00000 
19 0.82413 0.82413 0.00000 
= 8.2413267632E-01 


関数 f(x) が 連続 で あれ ば f(a) く 0, f(b) > 0 に 対し f(x) 三 0 を 満た す x が a と b の 間 に 一 つ 以 上 
存在 する . x を 効率 よく 捜す た め a,b の 区 間 を 半分 ずつ 狭め て いく の が 二分 法 で ある . x (8 十 
b) 用 と し て , f(x) が 正 で あれ ば a と x の 間 , f(x) が 負 で あれ ば x と b の 間 に 解 が 存在 する . |f(X)| 
が 十分 小さ く な る まで 繰り 返す . 

f (x) が 計算 で き , f (x) デ 0 の と き は Newton 法 が 使え る (第 4 章 参照 ). 二分 法 よ り , Newton 法 
の 方 が 収束 は は る か に 速い . 


(b) プロ グラ ム の 構造 

関数 function の 記述 は program 頭 部 と メイ ンプ ログ ラム の 間 に 置 く . 関数 が 複数 個 あ る 場合 は 
並列 に 並べ る . 関数 が 別 の 関数 を 呼び 出す 場合 , Turbo Pascal で は 呼び 出さ れる 関数 は 呼び 出す 
関数 の 前 に 位置 し て いな けれ ば な ら な い . 副 プ ログ ラム が ある プロ グラ ム で 変数 を 使用 する 場合 , 
変数 の 宣言 場所 に 注意 し な けれ ば な ら な い . 

下 の 図 で 初め に 宣言 され た 変数 A, B, C は , 関数 で も メイ ンプ ログ ラム で も 参照 で きる 共通 の 
変数 に な る . 関数 内 だ け で 使用 する 変数 D,E,F は , その 関数 の 頭 部 と 実行 部 分 と の 間 で 宣言 する . 
関数 の 後 で 宣言 され た 変数 J, K, し は , メイ ンプ ログ ラム 内 で の み 使 用 で きる . し た が っ て 変数 
A, B, C は すべ て の 副 プ ログ ラム で 共通 に 使用 で きる 共通 変数 で ある (グロ ー バ ル 変 数 ). 変数 D, 
E,F な ど は 局所 (ロー カル ) 変数 と 呼ば れる . 


トー 
DTOgTaM DTO1・・・・: 
var A, BLC…・ 共通 変数 
function func1(X,Y, 2Z……) : 型 : 
var D,E,F・…・ 関数 内 変数 
begin 
ーー・ 変数 A,B,C D,E,F が 参照 で きる 
end: 
var J,K,L・…・ メイ ンプ ログ ラム 内 
begin 
ーー 変数 A,B,C J,K,L が 参照 で きる 
…・func1(S, TU…・)…・ 
end. 
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引数 X, Y, 乙 は A, B,C と 同じ 名 前 で も っ て も よい が , その 場合 , 共通 変数 は 参照 で き な く な 
る . 同じ よう に 変数 名 D, E, F と A, B, C は 同じ 名 前 で も よい が , 共通 変数 は 参照 で き な く な る . 
た だ し 同じ 関数 内 で は , 引数 X, Y, 乙 と 局所 変数 D, E,F は 同じ 名 前 で あっ て は な ら な い 

メイ ンプ ログ ラム 内 の 関数 呼び 出し で は , 引数 X, Y, ZZ に 対し て S, T, U を 設定 する . X, Y,。Z 
を 仮 引 数 , S, T, U を 実 引数 と いう . X, Y, 有志 の デ ー タ の 型 や 引数 の 個数 に 対し , S, T,U の 方 も 
型 , 個数 を 一 致 き させ な けれ ば な ら な い . た だ し , 仮 引 数 が 実数 型 の 場合 に は 実 引数 は 整数 型 で も よ 
い . 3 
実 引数 $, T, U は , 式 が 許さ れる の で 変数 で も , 定数 で も 計算 式 で も よい . 変数 の 場合 は A, B, 
C ま た は す J, K, し の どれ か で ある . 後 で 説明 する よう に 仮 引数 が 変数 引数 の 場合 は , 実 引数 は 変数 
に 限ら れる . 


forward 宣言 
TURBO Pascal で は 呼び 出さ れる 関数 は 呼び 出す 関数 の 前 に 位置 し て いな けれ ば な ら な い が , 最初 に 関 


数 の 頭 部 だ け を forward 官 言 し て お く と , 順序 不動 で よい . 


function fc1 (x : integer : n : real) : real : forward : 


(e) 再帰 び 出 し 
関数 内 部 で 自分 自身 を 呼び 出す の が 再帰 呼び 出し で ある . 再帰 呼び 出し を 利用 する と , 潤 化 式 の 

プロ グラ ム な ど を 簡単 に 組む こと が で きる . た と えば 1 か ら n まで の 和 , 階 乗 や フィ ボナ ッ チ 数 
列 は , 

ぶ n テ (nmー1) 十 n。 1 = ニ 1 

n! 三 (nmー1)!:n。 11 ニ 1 

F(n) =F(mー1) +F(mー2) , F(0) = 0, F(1) = 1 
な どの 治 化 式 で 表わす こと が で きる . これ ら の 潤 化 式 は , ほとん どこ の まま プロ グラ ム と し て 記述 
する こと が で きる . 例え ば , 再帰 呼び 出し を 用 いて 1 か ら n まで の 和 を 求め る 関数 は 次 の よう に 
な る . 


fanction sum (n : integer) ・ integer : 


begin 
ifn=1thensum:=1 
else sum : 三 sum(nー1) 十 n 
end : 


これ ら の 例 は 再帰 に し て も 計算 時 間 な どの 点 で 繰り 返し より 特に 利点 は な い . 次 の 例 は x の nn 
> 0 の 整数 ) 乗 を 計算 する 関数 で ある . 再帰 呼び 出し を 使い , n が 奇数 , 偶数 で 場合 分 け を する ( 偶 
数 の 場合 は 2 乗 する ). 
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(有人 k40] . ぷ の の 理工 人 95 人 eee か otoMDkoRExesedeeBewuvs も Su 
実数 x の n 乗 (n > 0 の 整数 型 ) を 再帰 的 関数 で 求め る . 


プロ グラ ム 3.10 


{| *#** xX の n 乗 *** )} 
program prog3 10(input, output) : 


1 

2 

3 

4 |function f(x:real:n:integer) :real: 

5 | begin 

6 {[ writeln(n): } 

7 if n=1 then f:=x else 

8 if n mod 2=0 then f:=sqr(f(x,n div 2)) 


9 else f:=f(x, n-1) *x 
10 | end: 

邊 【 

12 | var xX:rTeal: n:integer: 

13 | begin 


14 write( xn?「'): 
15 readln(x, n) : 
16 writeln(f(x,n) :10:8) 


17 | end. 
きき と <Sgeas 1 モー 


6 行 目 の コメ ント を 外す と (| と | を 消す ) 途中 の 呼び 出し 経過 が わか る . た と えば nー7 の と き , 
次 の よう に 展開 し て 計算 する と 考え れ ば よい . 
f(x, 7) = f(x, 6) *※x 
三 sqr(f(x, 3) ) *x 
三 sqr(f(x, 2) *※X) ※X 
三 sqr (sqr (f (x, 1) ) ※x) *※x 
三 sqr(sqr (X) *※X) ) ※X 
この 例 で は 単純 な 繰り 返し 計算 に 比べ て 乗算 回 数 は ほとん ど 変 化 な い が , た と えば n = 100 で は 
乗算 回 数 は 1/10 に 減少 する . 


(d) 練習 問題 * 

[$-1] 常用 対数 を 計算 する 関数 1og 10(X) を 作り , 整数 の 桁 数 を 求め な さい . 

[$-2] 2 つの 引数 xy の 大 きい 方 の 値 を 返す 関数 f を 作り , メイ ンプ ログ ラム で a, b, c, d の 4 つの 値 を 入力 し 
て fG(…)) と いう 形 で その 最大 値 を 求め な さい . 

[$-3] 再帰 呼び 出し で 配列 の 1 一 n まで の 要素 の 和 を 求め な さい . 

[5-4] 二分 法 ま た は Newton-Raphson 法 (第 4 章 参照 ) を 用 いて 立方 根 を 求め る 関数 を 作り な さい 

[5-5] ユー クリ ッ ド の 互 除法 で 最大 公約 数 を 求め る 関数 を 作り な さい (練習 問題 3-3 参照 ). 再帰 呼び 出し を 使 
うこ と に する . 

[S-6] 再帰 的 関数 で フィ ボナ ッ チ 数 列 を 求め な さい . 
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[5-7] 角度 ( 度 ) を ラジ アン に 変換 する 関数 radian, お よび tangent を 求め る 関数 tan を 作り , これ ら を 利用 し 
て tanx' を 計算 し な さい . 

[5-8] 配列 の n 個 の デー タ の 最大 値 を 求め る 関数 maxdat を 作り な さい . 配列 は 共通 変数 と し , maxdat(n) は 
maxdat(nー1) と n 番 目 の デ ー タ を 比較 する 再帰 的 関数 と する . 

[5-9] 例題 3.10 の 関数 を 利用 し て n = 10", 1=m=5 の と き の (1+1/n)" の 値 を 求め な さい . 

[5-10] 引数 y を 西暦 年 と し て 半 年 な ら true, 閉 で な いな ら false を 返す 関数 leap を 作り な さい (練習 問題 2-8 
参照 ). 


3.6 手 続き 


() 手 続 き 

関数 fnnction の 仲間 に 手続 き procedure が ある . 関数 も 手続 きも ある 処理 を 定義 する 副 プ ログ 
ラム で ある . 関数 と 手続 き の 違 い は , 関数 は 値 を 返す の で 式 の 中 で 呼び 出す の に 対し , 手続 き は 手 
続き 文 で 呼び 出す . 


1 | program proctest(output) : 

2 

3 | procedure bar(x:integer): { 手続 き } 
4 | var ji:integer: 

5 | begin {( 棒グラフ } 

6 for i:=1 to x do write('* ): 

7 writeln 

8 | end: 

9 

10 | begin {( メイ ンプ ログ ラム )] 
11 bar(10): { デー タ の 表示 )} 

12 bar (20): 

13 bar(30) 

は | RG ] 


手続 き に は , 関数 と 同じ よう に 名 前 を つけ る . 引数 も 関数 の 場合 と 同じ だ が , 関数 値 を 返さ な い 
の で 関数 値 の 型 を 宣言 する 必要 は な い . し た が っ て 次 の よう な 構造 と な る . 


begin 実行 部 分 end: 


手続 き と 関数 の 違い は , 関数 で は 関数 値 を 返す た め に , 関数 の 型 を 定義 し た り , 関数 名 に 値 を 代 
人 し た りす る が , 手続 き で は 不要 で ある . また 呼び 出す 場合 , 関数 は 式 の 中 で 関数 を 呼び 出す が , 
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手続 き は 手続 き 文 で 呼び 出す . 
プロ グラ ム が 実行 され る 場合 は , メイ ンプ ログ ラム か ら 実 行 が は じ ま り , 手続 き 文 が ある と , そ 
の 手続 き の 実行 部 分 が 実行 され る . 手続 き の 実行 部 分 が 終了 する と , 再び メイ ンプ ログ ラム の 手続 
き 文 の 次 の 文 に 処理 が 移る . 


デー タ の 受け 渡し が ある と き は 関数 同様 引数 を 利用 し て これ を 行なう こと が で きる . その 場合 手 
続き 名 の 後ろ に 次 の よう な 引数 宣言 部 を 付け る . 
procedure proc1 (a, b, c : real) : 
procedure proc2(x, y : real : i, ] ・ integer) 
引数 は 呼び 出す 側 で は , 実 引数 と 呼び , 呼ば れる 側 で は 仮 引数 と 呼ぶ . 引数 を も つ 手 続き を 呼び 出 
す 場 合 は , 関数 と 同じ よう に 手続 き 文 に 実 引数 を 付け て 呼び 出す . 
proc1 (a, 1.5, 2 *X) : 
proc2(a, b, 1 ) : 
また 関数 と 同じ よう に 自分 自身 を 呼び 出す 再帰 的 手続 き を 定義 する こと も で きる . 


[例題 3.11] 順列 の 生成 oe 
| 1ーn の 順列 を すべ て 表示 する .n 個 の 数 値 を 巡回 させ る と n 通 り の 順列 に な る の で , それ : 
: ぞ れ に つい て nー1 の 順列 を 考え る と n! の 全 順 列 が 求め られ る . 


プロ グラ ム 3.11 


(4 順列 の 生成 **#* 」} 

program prog3_11(output): 

var p : array[1..100] of integer: 
n, i : integer: 


procedure perm(m:integer): 

Ya:1。 (あわ 3) 9 mm も 6gEGW 

begin 

9 if m>1 then 

10 for i := 1 tom do begin 

11 perm(m-1) : { m-1 の 順列 } 
12 km 晶 け : { ロー テー ト )} 
13 for j := 1 to m-1 do p[j] := p[it1]: 
14 p[m] := k 

15 end 

16 else begin { 表示 } 

17 for i := 1 to n do write(p[i] :3): 

18 writeln 

19 end 

20 | end: 
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22 | begin { メイ ンプ ログ ラム } 


24 fog 六 放 = も O7n ODN SeL* 
25 perm(n) 
26 | end. 


1 


の が ww と か か た 導 


Ra 8 とる 8ro.6S っ reo 人 
7 
N 
co co com ES で Sm リー < らら 
koS Fo cS < 一 0ー は ほ で う で 5 
ーー デー ョ ーー ョ ーー て 拓 べ 拓 べ べ 二 べ 授 べ 】 


トー トー ト S 5 ト O 選 ほほ トー ルート OS ト 5 で CO くう 
ho < で < こら 違 に ここ 乙 ほ し レー 


この プロ グラ ム で は , 手続 き を 再帰 的 に 呼び 出し て いる . 4 つの 数 の ロー テー ト を 考え る と , 4 
通り の 状態 が あり , 4 回目 の 操作 で 元 に 戻る . 
か が. 和 を きす - 人 0 
本 3。 人 Q) 


選 。 〇 つの ト う 


k 2 
1 2-3- 人 0 
1 2 3 4 元 に 戻る 
これ ら そ れ ぞ れ に つい て 最初 の 3 個 の 順列 を 考え を る. (1) に つい て は , 3 通り ある . 
Es 3 (1.1) 
1 (1.2) 
3 12 (1.3) 
Hi 2.3 元 に 戻る 
最初 の 2 個 の 順列 を 考え る と , 2 通り ある . 


1 2 (1.1.1) 
み 1 (1.1.2) 
1。 2 元 に 戻る 


この よう に 全 順 列 を 考え る と n・(mー1) ・(mー2)…… ニ n! の 組合 せ が あ る . 
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(b) 引 数 
標準 に 用 意 き れ て いる 手続 き の 代 表 的 な も の に read と write が ある . この 2 つの 大 き な 違 い は 
引数 が 変数 引数 と 値 引 数 と いう と ころ で ある . 
read (a, b, c) : 変数 引数 
write (a, 2 *※b, c/3) : 値 引 数 
つま り , read 文 の 場合 は 引数 は 変数 に 限ら れ 式 は 使え な い . write 文 の 場合 は 値 を 渡す の で 引数 に 
定数 や 式 が 使え た . また read 文 で は 呼び 出し に よっ て 実 引数 の 変数 に 値 が 代入 され る . 
この よう に 仮 引数 は 大 きく 分 ける と 2 種類 ある . 今 まで 扱っ て きた 引数 は 値 引 数 で . これ を 変数 
引数 に する こと も で きる . 変数 引数 に する に は , 宣言 時 に 前 に var を 付け る . 
function func1 (var n : integer) ・ boolean : 
procedure proc1 (a, b, c : real : var X, y, Z・ Teal : 
1, ] : integer : var m, n : integer) 
これ を 呼び 出す 場合 も 変数 の 型 , 変数 引数 ・ 値 引数 の 違い に 注意 し な けれ ば な ら な い . 上 の 
proc1 の 場合 , は じ め の 3 つが 実数 型 の 値 引 数 , 次 の 3 つが 実数 型 の 変数 引数 ,…… と いう 引数 の 
型 。 個 数 , 順番 な ど に 注意 する . 
proc1(a, 1.5, 2*c, x, y, Z, 23, n mod 2、i, ]) 
手続 き proc1 の 中 で は , 変数 引数 x, y, z, m, n に 値 を 代入 する と それ が 実 引数 の 値 と な る . 例え 
ば , 手続 き 内 で 引数 nm に 5 を 代入 する と , 呼び 出し た 後に 変数 j に $ が 代入 され る . 
この よう に , 値 引 数 と 変数 引数 の 見 か け 上 の 違い は 仮 引数 の 先頭 に var が ある か な いか の 培い で 
ある . 値 引 数 は 手続 き 側 で 引数 の 値 を 参照 する だ け で あり , その 結果 を 呼び 出し た 側 に 戻す 場合 は , 
変数 引数 と し て の 宣言 を 行わ な けれ ば な ら な い . 値 引 数 を 使用 する 場合 は , 実 引数 に 式 や 定数 を 割 
り 当 て る こと が で きる . 


| 仁 引 数 | 秋 数 引数 
式 (変数 定数) | 克 数 の み 
値 を 返せ な い | 値 を 返せ る 


呼び 出す 方 
手続 き 内 


実 引数 / 仮 引数 の 対応 で は 引数 の 個数 と 型 を 揃え る こと に 注意 する . また 引数 が 配列 の 場合 は , 
で きる だ け 変 数 引数 を 用 いる . TURBO Pascal で 引数 に 配列 を 使う 場合 は , 前 も っ て 配列 の 型 宣 
言 を し て お か な けれ ば な ら な い . 

Program test (input, output) : 

type data 三 array [1..100]of integer : 

procedure p1 (var buf : data) ー こ こ に array な どの 宣言 は 使え な い 
begin 


DOCCCOCOPDLLKKYIEKXXI 


次 に 配列 の 引数 を 用 いて デー タ の 受け 渡し を 行う 例 を 示す . 
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[例題 3121! エラ トス テ ネ ス の 乱 oeteeeetetotoeeehtkvesfeYeetaioetezotvesvesacsaAaa2csec 直 村 SsvrbY 上 が 
自然 数 2 一 n に 1 を 付け て お き , 2 の 倍数 , 3 の 倍数 , … 


て ). 残っ た 数 は 素数 の 集合 に な る . 


プロ グラ ム 3.12 


{ *** 素数 表 (エラ トス テ ネ ス の 飼 ) *** 
program prog3 12(output) : 

const n=1000: 

type data=array[2..n] of integer: 


procedure disp(Var prime:data) : 
VaT i:integer: 
begin 
for i:=2 to n do 
if prime[i]<>0 then write(i:5): 
writeln 
end: 


ょ ュー テー テー 
ト う リー < や の どど - こ ココ の >) <m 愉 < で SF テー 


14 | procedure mark(i:integer:var prime:data) : 
15 | var k:integer: 


16 | begin 

17 k:=2*1: 

18 while k<=n do begin 

19 prime[k] :=0: 

20 k:=k+i 

21 end 

22 | end: 

23 

24 | var prime:data: i:integer: 
25 | begin 


26 for i:=2 to n do prime[i] :=1: 
27 for i:=2 to n do 


28 if prime[i]<>0 then mark(i, prime) : 
29 disp(prime) 
30 | end. 


実行 例 (部 分 ) 
<。 ルー。 49 7 1 狼 


47 53 59 61 67 71 73 79 83 
109 113 127 131 137 139 149 151 157 
191 193 197 199 211 223 227 229 233 
269 271 277 281 283 293 307 311 313 
353 359 367 373 379 383 389 397 401 


29 
89 
163 
239 
317 
409 
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この プロ グラ ム で は , は じ め に 配列 の 全 要 素 に 1 を 代入 し て お く (次 の 表 参 照 ). 次 に 1 = 2 に つ 
いて 2 の 倍数 4 6, 8 10…… に 0 を 代入 する . 次 に 3 に つい て , 3 の 倍数 6, 9, 12, 15, 18, 
… に 0 を 代入 する . 4 は すでに 0 に な っ て いる の で , 次 の $ に つい て $ の 倍数 10, 15, 20, 25, 
… に 0 を 代入 する . これ を n まで 繰り 返せ ば , 配列 の 要素 番号 が 素数 の と き 1, それ 以外 の と き 0 
が 代入 され て いる . これ を 表示 すれ ば 素数 表 が で き あ が る . この 方 法 は 数 字 1 つ 1 つが 素数 で ある 
か どう か を 判定 する 方 法 に 比べ 高速 に 素数 表 を 作成 する こと が で きる . 


所 是 


ここ で は 2 以上 の 数 を 調べ た が , 普通 は 3 以上 の 奇数 を 調べ る . この 例題 の よう に TURBO 
Pascal で は , 引数 に 配列 を 使用 する 場合 は , 必ず 型 定義 を お こ な わ な けれ ば な ら な い . 


(c) プロ グラ ム の 構造 
ここ で , いま まで で て きた 宣言 の 種類 を まとめ る と 次 の よう に な る . 手続 き や 関 数 も 一 種 の 宣言 


で ある . 


label ラベ ル 定 義 
const 定数 定義 
type 型 定義 
var 変数 宣言 
procedure 手続 き 宣言 
function 関数 宣言 

に ネー 


この よう に 手続 き や 関 数 の 宣言 部 に , 別 の 手続 き や 関 数 が 定義 る れる こと も 考え られ る . し た が 
っ て , 手続 き や 関 数 は 次 の よう に ' 入れ子 "に な る こと も ある . この 場合 , 変数 の 有効 範囲 や , 入 
れ 子 に な っ た 手続 き ・ 関 数 の 呼出 に 注意 する . 
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DTOgTam DTO1: 
var A, BLC・・ 


procedure DrTOX・・・ 
Var D, ELF・…・ 
function funcY・・ 
var G,HL TI・・ 
begin 
実行 部 分 (A1) 変数 BC D,ELF G,H,I が 参照 可 
end: 2 
begin 
実行 部 分 (4) 変数 AB,C D,E,F が 参照 可 
end: 関数 A1 が 呼出 可 


var L,M,N・…・ メイ ンプ ログ ラム 
begin 

実行 部 分 変数 AB,CL,MN が 参照 で きる 。 
end. A は 呼出 可 、A1 は 不可 


(d) 練習 問題 

[6-1] 以前 扱っ た ノー ティ ング の プロ グラ ム (例題 3.1) を , 手続 き を 使う よう に (手続 き 内 で ソー ト す る ) 書 き 
換え な さい . デー タ (配列 ) を 共通 変数 と する . 

[6-2] [6-1] と 同じ 問題 . デー タ (配列 ) を 引数 で 手続 き に 渡し な さい . 

[6-3] 2 つの 分 数 a/b と c/d の 四則 演算 を 行い な さい . a, b, c, d は 整数 刑 と し , 結果 が 約 分 で きる 場合 は 約 
分 する . 

[6-4] 例題 3.12 の 配列 を 整数 型 か ら 論理 型 に 変 た た さい . また 3 と 5, $ と 7 の よう に 差 が 2 の 素数 の 組 ( こ 

れ を 双子 素数 と いう ) を すべ て 表示 し な さい . 

配列 p[1], …, p 還 ] が あり , 引数 j,k(1 ミミ j ミ k 人 ミ n) に 対し p 和 , pj 二 11, …, pk 一 1], p[k] を 

plk], pk 一 1], …, p 二 1], pi] と 逆順 に 並べ 変え る 手続 き を 作り な さい . 

[6-6] 前 問 の 手続 き を 利用 し て a, b,d を 与え て (1 ミ =a ミ ミ b ミ d ミ n), p[a], …, plb], plc], …, p[d], c 
=b+1 を plg], …, p[d], p[a], …, p[b] と 並べ 変え る 手続 き を 作り な さい . 

ヒン ト : aーb, c 一 d, a 一 d を 順に 逆順 に する . 
[6-7] 2 つの 行列 の 積 ・ 和 を 計算 する 手続 き を 作り な さい (3.4 参照 ). 
[6-8] 前 問 の 手続 き を 利用 し て , 


[6-$ 


1 


0 ーー 6p3 9p> 
eXD の ps 0 ー の pr 
ー6Pz の pi 0 3 Pi 寺 pz- 十 ps 三 1 


が 収束 し て (pi, pz, ps) 軸 の まわ り の 6 の 回 転 を 行う 行列 に な る こと を 確か め な さい . 

[6-9] nXn 行列 (2 次 元 配 列 ) の i 行 を n 次 元 ベ クト ル (1 次 元 配列 ) と し て 引数 で 返す 手続 き mati j 列 を n 次 
元 ベ クト ル と し て 返す 手続 き matj, 2 つの ベク トル の 内 積 を 返す 関数 vect を 作り , それ を 利用 し て 2 行 
列 の 積 を 計算 し な さい . 

[6-10] 再帰 呼び 出し を 使っ て ハノイ の 塔 の 問題 を 解き な さい . ハノイ の 塔 と は a, b, c3 つの 棒 が あり , a の 
棒 だ け に 大 きい 円 散 か ら 順 に 小さ い 円 盤 が n 枚 積 み 重 ね て ある . 円 盤 は 一 度 に 1 枚 だ け 動 か せる . 小さき 
い 円 盤 の 上 に 大 きい 円 盤 を 乗せ ず に 全部 の 円 盤 を c の 棒 に 移す . 

ヒン ト :nー1 枚 の 円 盤 を ab に 移し , n 枚 目 を aーc に 移す と 表示 し , nー1 枚 の 円 盤 を bc に 移す . 


第 3 章 Pascal 文法 の 基礎 83 


a b ( コ 


3.7 文字 と ファ イル の 取り 扱い 


(&) 文字 コー ド 

一 般 の 文字 (半角 文字 ) に は 次 の 表 の よう な 文字 が あり , それ を どの よう な 数 値 ( コ ー ド ) で 表す か 
は あら か じ め 定 め ら れ て いる . 英 数 字 ・ 記 号 の 部 分 は ASCII( ア スキ ー) コ ー ド と いう . この 表 の 
文字 コー ド は , 16*H 十 L で 表 さ れる . HH は 上 位 4 bit の 表わす 16 進数 , L は 下位 4bit の 表わす 
16 進数 で ある . 

例え ば 数 字 の 0 は , 16*3 十 0 = 48 と な る . これ を 16 進 法 で 表す と , H 二 上 ー$30 と な る . 先 
頭 の $ は 16 進 を 表す 記号 、 アル ファ ベッ ト の A は 16 進 法 で $ 41, 10 進 法 で 16*4 十 1 三 65 と な 
る . 文字 m は 16 進 法 で $ 6D, 10 進 法 で 16*6 十 13 = 109 と な る . 


下位 4 bi t (1 6 進 法 ) 


0 1 2 34 たま 穫 68 リー は 8 ec9 の 23 よん 量 科 て D 8E+- 測 
0 制御 文字 領域 
。E 1 制御 文字 領域 
位 | 2 生生 衝 - を (を の 事 呈 >。 や / 
4 3 | 70 っ 科 - の 0 9 お 0 で の 7ー 0 て KTK ゆ 8 古 2 
5。。 14 癒 。 AB 6 。D、 届 人 時 11 KK 上 。、 MM N.0 
i 5 PID RS TU WV W % 2 し | ー 
t 6| の DD <Gakd 6 ゴ 部 表 信 次 水 示 玩 5MI 
De 85 。U 写 電 0。 演 2。 ト 上 ト よ 
16 8 全角 文字 用 
進 9 全角 文字 用 
法 | A sd ・ 7 7 1 3》 ォ ャ ュ ョ 9 
Breoc2 ビー エニ テニ か っ スキーム た ーー エニ た ミツ スー ヤー ツリ 
CT 7 9 ああ M 本 あお 肝 : り いれ 4/。 AA。L。221A ます マ 
DS ゃ が 多 - 補 aM こつ T2WUU ル ィ 4 ルリ | y 
E 全角 文字 用 
F 全角 文字 用 


全体 で 16*16 = 256 文字 ある が , この うち 32 文字 は 制御 文字 , 64 文字 は 全角 文字 用 と な っ て 
いる . 全角 文字 は 漢字 , ひら が な , カタ カナ な ど で , アル ファ ベッ ト も 全角 文字 の ABCD…… と 
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半角 文字 の ABOOD…… が ある . 全角 文字 は 半角 文字 2 文字 分 (2 byte) で 表 さ れる の で , 組み 合せ と し 
て 64*256 = 16,384 通り ある . どの 文字 が どう いう 数 で 表 さ れる か と いう こと (コー ド ) は あら か 
じ め 定 め ら れ て いる . 例え ば 漢字 の 漢 は $8ABF, 字 は $ 8E9A で ある . 


(⑱) 文字 ・ 文 字 列 型 


Pascal の プロ グラ ム で は , 文字 や 文字 列 を 容易 に 扱え を る よう に な っ て いる . 文字 型 と 文字 列 型 の 
2 つの デー タ の 型 が ある . 文字 型 で は , 半角 文字 1 文字 , 文字 列 型 で は 全角 文字 や 複数 の 半角 文字 


(255 文字 以下 ) が 扱え る . 型 名 は char, string で ある . 


Var ch:char: 
begin 


readln(ch) : 


progTam mOji(input, output) : 


ch:='a : ch:=#67: 


( 代入 例 
( 16 進 
キー ボード 太 力 


ch:=chr(ord('A' )+1):  { 次 の 文字 } 


writeln(ch, =',ord(ch)) {表示 ) 


1 
2 
3 
4 
5 ch:=#$5F: 
6 
7 
8 
9 


end. 


文字 デー タ は , 文字 列 を 引用 符 で 括っ て 表わす . コー ド の 数 値 で 文字 を 与え を る に は 半 78 の よう 
に 装 を つけ て 表現 する . 文字 型 か ら 文 字 コ ー ド を 得る に は , 


code : 三 ord(a): 


ch : 三 chr(code): 


(code は 整数 型 ) 
(ch は 文字 型 ) 


の よう に , ord と いう 関数 を 用 いる . 文字 コー ド か ら 文字 を 得る に は , chr と いう 関数 を 用 いる . 
文字 , 文字 列 型 と も read 文 や write 文 で 入出 力 可 能 で ある . つま り キ ー ボ ー ド か ら デ ー タ を 読 


み 込 ん だ り デ ィ ス プレ イ に 表示 し た り で きる . 


文字 列 の 型 名 は string で あり , 配列 と 同じ よう に [ ] で 括っ て 最大 文字 数 を 前 も っ て 決め て お く . 
[ ] 内 の 数 値 に より , 何 番目 の 文字 か を 示す こと が で きる . 最大 値 は 255 で ある . 


1 | program mojiretu(input, output) : 

2 | var st:string[80] : 

3 | begin 

4 readln(st): { キー ボー ド 入 力 } 
5 st:='abcdefg': { 代入 例 } 

6 st:= 日 本 語 の 文章 ": { 漢字 代入 例 } 
7 st:=st+'XYZ'+st: (文字 列 の 結合 } 
8 writeln(st) { 表示 } 

9 | end. 
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文字 列 デ ー タ は , 文字 デー タ 同 様 文字 列 を 引用 符 で 括っ て 表わす . 
St・ 三 "abcdefg' : 
が 実行 され る と , st[0] に 文字 数 が , st[1] 以降 に 文字 の 文字 コー ド が 代入 きれ る . $61, $62。…… 
は 前 の 文字 コー ド 表 か ら 'a。 PP。…… で ある こと が わか る 


SE 8 OOIIEe 3 。 
日 本 語 の 文章 : 

潤 才 > 米 の 沙 導 村木 陸 な 全 は NE SM 葬っ 

と いう 漢字 を 表す . これ は 多く の パソ コン で 使わ れ て いる シフ ト JIS コー ド で 漢字 を 表し た 結果 で 

ある . 


全角 文字 の 場合 , 1 つの 文字 が 半角 文字 2 文字 分 を 占め る . し た が っ て , 6 文字 で も 配列 の 占め る 
大 き さ は 12 に な る . 

また 文字 や 文字 列 を + で 結ん で , つなぐ こと も で きる . 文字 列 変数 に 文字 列 を 代入 する 場合 は 宣 
言 し た 範囲 を 超え て は な ら な い . 


本 3.13] . 甘 岸 較 愉 の 清 角 Ro の Su 
英語 の 文章 を 入力 し , 英 単 語 に 分 解す る . : 


プロ グラ ム 3.13 
1 | [| *** 英 単語 へ の 分 解 *** ] 
2 | program prog3_13(input, output) : 
3 | conSt SD = 
4 | var st: string[80]: 
5 n, 1, word, start : integer: 
6 | begin 
7 writeln( 英文 を 入力 し て 下さ い ?「): 
8 readln(st) : 
9 n := length(st): 
10 1 = 0: 
11 woOrd := 0: 
12 repeat 
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13 repeat ji:=i+1 until (in) or (st[i]<>sp) : 
14 SE :=- す 5 

15 repeat i:=i+1 until (ivn) or (st[i]=sp) : 
16 write(' 頭 文字 = ',upcase(st[start]),′「':5): 
17 writeln(copy(st, start, i-start) ) : 

18 wOTd := word+1 

19 until i >= ni: 

20 writeln( 文字 数 = ',n,* 語数 = ', word) 

21 | end. 

実行 例 


英文 を 入力 し て 下さ い ? 
The marvellous thing is that it 's painless 
頭 文 字 = T The 


頭 文 字 = M marvellous 
頭 文 字 = T thing 

頭 文 字 = 1 is 

頭 文 字 = T that 

頭 文 字 = ! it's 

頭 文 字 = P painless. 
文字 数 = 43 単語 数 = 7 


文字 ・ 文 字 列 を 取り 扱う 手続 き ・ 関 数 が た くさ ん 用 意 さ れ て いる の で , それ ら が 大 い に 役 立つ . 
詳細 は 付録 参照 の こと . 


(c) ファ イル か ら の 入力 

ファ イル に は 大 きく 分 け て , テキ スト ファ イル と バイ ナリ ファ イル の 2 種類 が ある . テキ スト フ 
ァイル は エディ タ な ど で 作 成 し た 文字 の 集合 ファ イル で ある . 例え ば Pascal の (ソー ス ) プロ グラ 
ム も テキ スト ファ イル で ある . 

Pascal プロ グラ ム を 読み 込ん で 画面 に 表示 する プロ グラ ム は 次 の よう に な る (MS-DOS の TYPE 
コマ ンド に 等 し い ). 4 行 目 の ” ' で 囲ま れ た 部 分 は 実際 に 存在 する ファ イル の 名 前 を 指定 する . 


1 | program fileRead(input, output) : 

2|var df:text: st:string[120] : 

3 | begin 

4 assign(df,。 PROG.PAS ): { ファ イル 名 の 指定 } 
5 reset(df): 

6 while not eof(df) do begin 

7 readln(df, st) : { 1 行 入力 
8 writeln(st) { 表示 ) 

9 end: 

10 close(df) 

11 | end. 
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ファ イル と の や り と り は , テキ スト 型 の ファ イル 変数 df を 用 いて 行なう . すなわち df は ユー ザ 
が つけ た 変数 名 で ある . assign 手続 き は , ファ イル 変数 df と ファ イル 名 と を 結び つけ る 役割 を 果 
た す . 次 の reset は ファ イル か ら デ ー タ を 入力 する た め の 準 備 を する 手続 き で ある . し た が っ て 
指示 され た ファ イル が 存在 し な い 場 合 に は エラ ー と な る . 

テキ スト ファ イル か ら 入 力 を 行う 場合 , 先頭 か ら 順 に デー タ を 読ん で いく . し た が っ て 最後 は 
デー タ の 終わ り と な っ て 入力 で き な く な る . これ を チェ ッ ク す る の が 関数 eef で ある . デー タ が 読 
め る と き false。 も う デ ー タ が な いと き true の 値 を 返す . 

実際 に デー タ の 読み 込み を 行なう の は , 手続 き readln, read で ある . これ は いま まで 扱っ た 
read/readin と 同じ で あり , 先頭 の 引数 の df を 省略 する と コン ソー ル ( キ ー ボ ー ド ) か ら 人 入力 し , df 
を 指定 する と その ファ イル 変数 に 対す る 入力 を 行なう . 最長 で 255 文字 まで で , ワー プロ で 作成 し 
た 改行 の 入っ て いな い 長 い 文字 列 を 読み 込む こと は で き な い . 

最後 に ファ イル に 対す る アク セス を 終了 する と いう 意味 で 手続 き close を 呼ぶ . 


ファ イル に 書き 込む 場合 は , reset の 代わ り に rewrite, readIn (df, .…) の 代わ り に writeln (df, 
…:) を 用 いる . 


1 | program fileWrite(input, output) : 

2 | Var df:text: 

3 1i:integer: 

4 | begin 

5 assign(df, "SQRT.TXT'): { ファ イル 名 の 指定 } 
6 rewrite(df) : { 新規 作成 
7 | writeln('20 ま で の 平方 根 表 ' ) : 

8 for ji:=1 to 20 do 

9 writeln(df,i:3.  : 「,sqrt(i):10:8) : 
10 close(df) 
11 | end. 


同じ 名 前 の ファ イル が 存在 する と , 新しい 内 容 に 更新 され る の で 注意 が 必要 で ある . この 他 フ ァ 
イル 関係 の 関数 ・ 手 続き に は 次 の よう な も の が ある . 
・Append(varf:text) 既存 の ファ イル を 追加 モー ド で オー プン する . rewrite の 代り 


に 用 いる . 
・Flush (var f・ text) 出力 用 に オー プン され て いる セク タバ ッ フ ァ を ファ イル に 書き 
込ん で 空 に する . 


・ 三 EoIn⑪) 行 の 終わ り の 判定 

: 三 SeekBof⑪) プランク, タプ ブ を スキ ッ プ し た ファ イル の 終わ り の 判定 

: 三 SeekEoln(⑪) "プランク, タブ を スキ ッ プ し た 行 の 終わ り の 判定 
・ーIOResult 最後 に 行わ れ た 1/O 操作 の 状態 を 示す 値 を 返す . 結果 は word 型 . 


き 選 の な 
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結果 が 0 は 正常 だ っ た こと を 意味 する . な お , デフ ォ ル ト は $1 士 | な の で , 
8 ユー| に し て お く 必 要 が ある . 


[ 午 竹 3.14] 凛 字 列 の 押 座 ドー いま な あい まま は る の よみ 状 omo% あ る 前 
ファ イル か ら 文章 を 読み 込ん で , 文字 列 を 探索 する . 


プロ グラ ム 3.14 
1 | { #** 文字 列 の 探索 *** ] 
2 | program prog3_14(input, output) : 
3 | var df:text: i:integer: 
4 name, st, ser:string[80] : 
5 | begin 
6 write( ファ イル 名 ? 「'): 
7 read1n(name) : 
8 asSign(df,name) : 
9 repeat 
10 reset(df): 
11 write(' 探 索 する 文字 列 ?「): 
12 readln(ser) : 
13 if ser='′then begin { 空 文字 } 
14 close(df): 
15 halt {終了} 
16 end: 
17 1:=0: 
18 while not eof(df) do begin 
19 1 :=1+1 : 
20 readln(df, st) : 
21 if pos(ser, st)>0 then 
22 writeln(i:3, :',st) 
23 end 
24 until false 
25 | end. 


この プロ グラ ム で は , ファ イル の 名 前 , 読み 込ん だ 文字 列 , 探索 する 文字 列 の 3 つ に 文字 列 変数 
を 用 いて いる . 


実行 例 

ファ イル 名 ? enews.txtg 

探索 する 文字 列 ? Kaifug 

115: Prime Minister Toshiki Kaifu is planning to appear on a U-S T-V 
121: during the Gulf war. He said Mr Kaifu thinks it very important 
123: said Mr Kaifu wants to appear on a major U-S T-V network program 


第 3 章 Pascal 文法 の 基礎 89 


探索 する 文字 列 ? Gorbg 

200: President Gorbachev has expressed his hope that the world's 

203: Mr Gorbachev said that his invitation to address the G-7 leaders 
209: Mr Gorbachev has indicated willingness to implement radical 

214: President Gorbachev's Union Treaty, which establishes a new 


221: was drafted by Mr Gorbachev and the parliamentary chiefs of 9 of 
探索 する 文字 列 ? 9 


この よう な ファ イル が な い 場 合 は , プロ グラ ム の ファ イル 名 を 指定 し て begin や end な どの 予約 語 
を 探し て みる と よい . 


(d 練 避 問 是 


[7-1] 整数 n(1ongint 型 ) を 入力 し て 金額 を 表示 する と き の よ うに , 3 桁 ご と に コン マ を 打っ て 表示 し な さい . 

これ は 以前 出題 し た 問題 で ある が , 文字 列 を 使っ て 作成 し て みな さい 
例 ・ 12345678 一 12,345.678 

[7-2] 例題 3.14 で 使っ た 英文 ファ イル を 入力 し , アル ファ ベッ ト の 使用 頻度 を 調べ な さい . 

[7-31 テキ スト ファ イル の 文字 数 と 行 数 を 数 えて 表示 し な さい . で きた ら 半 角 文 字 と 全角 文字 を 分 け て 数 えな 
さい . 

[7-4] ある 大 学 で は 6 桁 の 学生 証 番 号 , た と えば これ を 123456 と する と , (1,2,3, 4, 5,6) と いう 6 次 元 ベ クト 
ル と (1.3, 1, 3, 1.3) と いう 定 ベ クト ル の 内 積 の 下 1 桁 の 1,2.3 一 ,9, 0 に 対し て Aー-J 了 の 記号 を 割り 当て る . 
いろ いろ な 学生 証 番号 を 入力 し て それ に 対す る 記号 を 求め な さい . 

[7-$] 整数 n(n>0) を 入力 し て 漢 数 字 で 表示 し な さい 

例 ・ 1234 … 千 二 百 三 十 四 

[7-6] 整数 n を 16 進 法 で 表示 し な さい . 10 一 15 に AF の 文字 を 割り 当て る こと に する . 

[7-7] Zeller の 公式 で 年 月 日 に 対す る 曜日 を ロー マ 字 また は 漢字 で 表示 し な さい . 年 十 (13* 月 十 8)div 5 十 日 
を 7 で 割っ た 余り に 曜日 を 対応 きせ る の が Zeller の 公式 で ある . 1, 2 月 は 前 年 の 13, 14 月 と し , 較 年 
は 年 に 1 を 加え る . 0 一 6 が 日 曜 一 土曜 に 対応 する . 

[7-8] 縦 10, 横 に 30 個 の 0 一 9 の 数 字 を ラン ダム に 並べ た 乱数 表 を 10 個 作 り , それ ぞ れ を RANDOM. 001 
ーRANDOM. 010 と いう 名 前 の ファ イル に 格納 し な さい . 

[7-9] 上 記 の ファ イル を 全部 読ん で 0 一 9 の 数 字 が それ ぞ れ いく つ あ っ た か , カウ ント し な さい 

[7-10] 4 を 整数 の 和 で 表す と , 1 二 1 寺 1 十 1。 1 十 1 十 2, 1 十 3, 2 十 2 と いう 組み 合わ せ が あ る . 整数 nin>0) 
に 対し て すべ て の 和 の 組み 合わ せ を 求め な さい . 
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第 4 章 
基本 算法 


これ まで に も る 数 値 計算 の 例題 を いく つか 示し た が , ここ で は 科学 ・ 技 術 の 分 野 で し ば し ば 用 いら 
れる 各種 数 値 計算 法 の な か で も , 特に 基本 的 か つ 代 表 的 な 算法 を , その 初歩 的 な も の に 限っ て 数 種 
類 紹介 する . これ ら の 算法 は , 計算 機 の 高速 な 演算 処理 能力 を 利用 し た ① 反復 繰返し 計算 に よる 
求 解 (4.1 節 ), ⑪ 連続 量 の 離散 化 に よる 近似 計算 (4.2 お よび 4.$ 節 ), ベク トル や マト リッ クス 
な ど , 多数 の 元 に 対す る 機械 的 計算 処理 (4.3 お よび 4.4 節 ) な どの 点 に それ ぞ れ 特色 が ある . この 
よ ょ うな 数 値 計算 に お いて は , 反復 法 の 収束 性 , 離散 化 に よる 誤差 の 程度 の 見 積 り の ほか 丸め 誤差 や 
桁 お ち 等 の 問題 に も 留意 する 必要 が ある が , 本 書 で は 省略 し た . 詳し く は 数 値 計 算法 に 関す る 専門 
書 を 参照 され た い . 


4.1 Newton-Raphson 法 


高 次 の 代数 方 程 式 あ る い は , 超越 方 程 式 の 根 を 求め る に は 逐次 近似 を 行なう . この 場合 , 適当 な 
推定 値 か ら 出発 し て , 繰返し 計算 に よっ て 正しい 解 に 系 統 的 に 近づく こと を めざす の で ある が , そ 
の 方 法 の 一 つ に Newton-Raphson 法 が ある . 

げ (x) = 0 の 根 * の 近似 値 を x, と し , Taylor 級数 展開 の * に 関し て 1 次 まで の 項 に よっ て 7(x) 
を 近似 する と , 


げ ()= テ げ ( り キア ⑦ プ りー ルリ モ 0 000 (4.1) 
を 得る . * に つい て , (4.1) を 解い て , + の 近似 値 x+」 が 得 ら れる . 
x+1 ニテ メア ( テ が 「( テ ん (を =0」 1 2 と しく) (4.2) 


反復 公式 (4.2) を 用 いて , * ニ ィ 。 に お ける げ (r) の 接線 と * 軸 と の 交点 x+」 を 計算 し て 必要 な 精 
度 ま で 根 を 改良 し て いく こと が で きる . 

Newton-Raphson 法 は , も し 7(*/) ま 0 か つっ が (x/) = 0 の 場合 は うま くい か な い . この 場合 は 
テ o を 選び 直さ な けれ ば な ら な い . 

この 方 法 は また 複素 数 を 根 と する 場合 , あ る い は 方 程 式 系 に も 拡張 で きる . 
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4.1 Newton-Raphson 法 の 概念 図 


【 例 杜 41 ス 3 次 方 程 式 人 の 根 き で は 53naoe あ RESE Seoteoe 夫 只 Qe0 洲 二 い は 肖 本 化 
Newton-Raphson 法 を 用 いて **ーg = 0 の 根 を 求め る . 1 


プロ グラ ム 4.1 
7| pro&gramm newton: {( *** ニュ ー ト ン 法 *** } 
2| var a : real: 
す 
4| function f(x : real) : real: { 関数 f(x) } 
5| begin 
6 電場 . も 
Z| end: 
@ 
2| function df(x : real) : real: { 導 関 数 f'(x) } 
7 の | begin 
7 d := 3.0 キ X ギ X: 
72| end: 
73 
74 | const eps = 1.e-8: 
75 max = 100: 
76 | var i : integer: 
7Z Xx, dx : real: 
7g8 
79 | begin 
20 write('a,x( 初 期 値 ) ? 「): 
27 read1n(a,x) : 
22 writeln(' 1 :3。 x 8 f(x) 「:16, "df(x) 「 :14) : 
23 1 07 
24 repeat 
25 dx := -f(x) / df(x): 
26 XX ニキ Os 
の 2 writeln(i:3。。 「jx:12。。 「,f(x):12。)。 「,df(x) :12) : 
28 も 和 キ 
29 unti] (i の or (abs(dx) < eps) : 
39 writeln(' 解 三 ',x:12) : 
37 end. 


< 実 行 例 > 
a, (初期 値 ) ? 2 1 


こま ペコ ミー ミー ミー 


3 

1.333333E+00 
1.263889E+00 
1.259933E+00 
1.259921E+00 
1.259921E+00 
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f(x) 
3.703704E-01 
1.895523E-02 
5.925932E-05 
5.893526E-10 
0.000000E+00 


df (x) 
5.333333E+00 
4.792245E+00 
4.762297E+00 
4.762203E+00 
4.762203E+00 
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解 三 1.259921E+00 


4.2 数 値 積分 


ょ の 関数 /G) の 区 間 [,5] に わた る 定 生 分 / げ (*) な を 考え る (<) が 和 和 な 開 数 で そ 
の 不定 積分 (原始 関数 ) を 求め る こと が 困難 な 場合 , この 定 積分 を 近似 的 に 求め る 方 法 が 必要 と な る . 
ここ で げ (x) は 区 間 [2, ] で 連続 で 。 その 不定 積分 は わか ら な いけ れ ど も , げ (r) の 値 そ の も の は 
[2, 5] 内 の どこ で で も 求め うる も の と する . 

この 定 積分 を 求め る 最も 素直 な 方 法 は , 関数 げ (x) を 別 の 積分 可能 な 関数 p (x) で 置き 換え る こ 
と に よっ て 近似 積分 を 求め ああ こと で あろ う . この げ (x) の 近似 関数 p(*) と し て , 多項式 を 用 いる 
こと に する と , Newton-Cotes の 公式 と 総称 され うる さま ざま な 数 値 積 分 の 公式 が 導 か れる . 

最も 単純 な の p(*) と し て は , 積分 区 間 の 両端 点 (4, げ (2) ) お よび ( ち , げ ( ヵ ) ) を 通る 直線 , すなわち 
1 次 の 多項式 で 7(x) を 近似 する も の が あり , これ は 台形 公式 と 呼ば れる . 当然 , 積分 区 間 が 広く 
な れ ば 誤差 が 大 きく な る か ら , も と の 積分 区 間 を 多数 の 微小 区 間 に 分 割 し , 各 微 小区 間 毎 に 区 分 策 
分 を 行う . 

も う 一 段 高 次 の 近似 で は , p(r) を 区 間 の 両端 x = ニ g,。*ー ニ と その 中 間 点 エニ (4 十 り )/2 で げ (x) 
に 一 致す る よう な 2 次 の 多項式 と する も の で , これ に よる 近似 積分 は シン プ ソ ン 則 に よる 積分 と 呼 
ば れる . この 場合 も 微小 区 間 に わ け て 区 分 積分 を 行う が , 微小 区 間 数 は 偶数 個 で な けれ ば な ら な い . 


(8) 台形 公式 に よる 方 法 

数 値 積分 の 中 で 最も 単純 な も の は , 積分 区 間 を 等 分 し て 各 微 小区 間 を 台形 と みな し , その 面積 の 
和 と し て 求め る も の で ある . 

微小 区 間 の 面積 は 


AS 三 (6 の 9) 0 ・ 人 Ax 


で ある の で , 積分 区 間 [4, の ] で の 積分 値 は . この 区 間 を ヵ 等 分 し , xp 三 6, *』 三 の と し て , 敏 小 
区 間 毎 に 区 分 積分 を 行なう こと に すれ ば 


7 キ $= ( り + ミ 7 ) .Ax 


と な る . 
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ナ げ ( 々 ) 


し 4 そ : 。 え 1 ヵ 


4.2 台形 公式 に よる 数 値 積分 


[例題 4.2] 台形 公式 に よる 数 慎 積分 oo 


生 間 ハニ キト < 
/ 二 ー み (ー 地 ) を 台形 公式 に より 求め る . 


プロ グラ ム 4.2 
7| program trapezoid: { *** 台形 公式 に よる 積分 *** ) 
大 
3| function f(x : real) : real: { 関数 f(x) } 
4| begin 
5 =1uO た (10 X) : 
e| end: 
が 
g| var 1i,  : integer: 
9 SUm, X, dX, XS, X%@ : Teal: 
7 の | の ーー bp 
77| begin 


72 write( 分 割 数 ? '): 
73 ーー 二 


74 | の し 発生 = 
75 b ee := 

76 ee Fe ・ 1 + 0 39: 

7Z 

78 1 5 きす も O 6 呈 do begin 

79 X : ニ + は 

20 SU 邊  。 ん 6 9 衣 くり AA い = #( 6 十 >X 和 †T 
27 end: 

22 SU : ニ SU 邊 ネ dX: 


23 writeln(' 結 果 = ',sum:12:9) : 
24 writeln(' 真 の 値 三 ',pi/4:12:9) : 


25| end. 

< 実行 例 > 
分 割 数 ? 10 
結果 = 0.784981497 
真 の 値 = 0.785398163 
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(pb) シンプソン の 173 則 に よる 方 法 
げ (x) を 2 次 式 で 近似 し た 場合 の 公式 は 


7 
/ ナ eg ェ ーー 7(@) + げ (6 )+7( ち | 
で ある . これ を シン プ ソ ン の 公式 (シン プ ソン の 二 則 ) と いう . これ は 区 間 [2, の ] に お いて 
p の = げ 7 の 。p( の = の, p() = 


と な る 2 次 式 p(*) で げ (x) を 近似 し た 場合 の 積分 公式 で ある . 
区 間 [2, ヵ ] を 2z 等 分 し た うえ で 2 後 小 区 間 毎 に 区 分 積分 を 施し て いく と , *。 三 4, >』 三 ちと 
し 人 


り の 41 ん 7 カ 
gs 学 C の ザー 
と いう 近似 式 が 導 か れる 。 
[例題 4.3] シン プン ン 公 式 に よる 数 値 積分 we 


1 
/ 二 を (= ー リ を シン プッ ン 公式 に より 求め る . 


プロ グラ ム 4.3 
ss 
7| program SimpSson: { *** シン プ ソ ン 公 式 に よる 積分 *** } 
2 
3| function f(x : real) : real: { 関数 f(x) } 
4| begin 
5 =1.0/ (1.0+ x * x): 
e| end: 
Z 
ga| Var i, ns : integer: 
9 SU 販 , SU 和 O, SUMC, X, dX, XS, Xe : Teal: 
『(/ 
7| begin 
72 write( 分 割 数 ? ”): 
73 readln(ns) : 
74 XS ・ ニ ゃ 
75 Xe := 
76 SU 1 + f(xe): 
7Z Sumo := 0.0: 
78 Summe := 0.0: 
79 dx := (xe - xs) / (2.0 * ns): 
20 X ・= XSi 
27 for i := 1 tons - 1 do besgin 
22 光 。 = 光 よ - 間 > 
23 SUmO := SUmO + イ (x) : 
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24 X := x+ dX: 
25 SUme := Sume + f(x) : 
26 end: 
2Z 25 次 寺 -d5 
28 SUmO := SumO + f(x) : 
29 SU := (sum + 4.00 * Sumo + 2.00 * sume) 
3 | * dx / 3.0: 
37 writeln(' 結 果 =',sum:12:9): 
32 writeln(' 真 の 値 三 ',pi/4:12:9): 
3 | end. 
< 実 行 例 > 
分 割 数 ? 10 
結果 = 0.785398163 
真 の 値 = 0.785398163 


4.3 連立 1 次 方 程 式 の 解法 


小 規模 な 連立 1 次 方 程 式 は 消 ま 法 に よっ て 解 か れる . より 大 規模 な 連立 1 次 方 程 式 (お お むね 数 


十 元 以上 ) の 場合 に は , 繰返し 算法 の 一 種 で ある Gauss-Seidel の 反復 法 や 緩和 法 が 用 いら れる . 


こ で は 我々 が 筆算 で 行なう の と 同様 の 消去 法 を 示す . 
消去 法 と は 次 の 3 つの 演算 を 適当 に 何 回 か 行なう こと に よっ て , 未知 数 を 消去 し , 与え られ た 方 


程 式 を より 簡単 な 方 程 式 に 変形 し て 解 を 求め る 方 法 で ある . 
ー つ の 方 程 式 に 0 で な い 数 を 掛け る . 
ー つ の 方 程 式 に ある 数 を 掛け て 他 の 方 程 式 に 加え る . 
二 つ っ の 方 程 式 を 入れ 替え る . 


(1) 
(②) 
(3③) 


テ 
ー 


た いて い の 消 去 法 は 有名 な Gauss の 消去 法 を 含め て , 未知 数 を 1 回 に 1 個 ず っ 消去 する こと 


に よっ て 係数 行列 を 三角 行列 に 変形 し て , 次 に 後退 置換 に よっ て 未知 数 の 値 を 計算 する . 
3 元 連 立 1 次 方 程 式 の 場合 を 例 に と っ て Gauss の 消去 法 の プロ セス を 示せ ば 次 の よう に な る . 
こ に 左側 の 3 行 3 列 は 係数 行列 , 第 4 列 は 定数 ベク トル を 表わす . 


(Gauss の 消去 法 ) 


テ 
いこ 
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| 
7 っ /2 
73 十 5/27> 


Gauss-Jordan 法 は , 第 ヵ 列 で ヵ 行 目 以外 の 成分 を 0 に する 操作 を 繰り 返し て , 係数 行列 を 単位 
行列 に 変形 する . し た が っ て 後退 置換 は 不要 と な る . 
(Gauss-Jordan 法 ) 


カー1/27 っ > 
1/27> 
73 十 5/27> 


7」 十 73/7 
7 っ 一 273/7 
73/ 一 7 


実際 の プロ グラ ム で は , 第 ヵ 列 目 で ヵ 行 目 以外 の 成分 を 0 に する 際 , 第 ヵ 列 目 で 係数 が 最大 の 
も の を 選び , 行 を 入れ 替え て それ 以外 を 0 に する と いう 操作 (pivoting) を する . これ は 計算 上 の 誤 
差 を 最小 に する た めで ある . 
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馬 較 4 枚 准 下 と 炎 学 柏 水文 た mamhttyyohmurekerknyeyemee ao 
Gauss-Jordan 法 に より ヵ 元 連立 1 次 方 程 式 を 解く . 


プロ グラ ム 4.4 
r 
7| program linear eq: { *** 連立 1 次 方 程 式 *** } 
2 
3| typerow = 1..20: col = 1..21: 
2 matrix = array [row,col] of real: 
ヶ line = array [row] of row: 
6 
Z| var a : mmatriX: 
8 1 昌 n : integer: 
9 dfile : text: 
7 の 
77 
72 | procedure Sweep(var a : matriX: maXTOW。 大 aXCOl : integer) : 
73 Var V : 邊 atriX: 
74 pivo : line: 
75 1 ), p, temp, maX : integer: 
76 aPP, aip : Teali: 
7Z 
78 begin 
79 for ij := 1 to maxrow do { 初期 設定 } 
2 の pivo[i] := ii 
27 for p := 1 to maxrow do begin 
22 AX := Pi { 係数 の 最大 値 の 探索 } 
23 for i :=p + 1 to maxrow do 
24 if abs(a[pivo[ i],p]) > 
25 abs (a[pivo[max], p] ) then max := ii 
26 temp := pivo[p] : { デー タ 交 換 } 
2Z pivo[p] := pivo[max] : 
28 Pivo[max] := tempi 
29 app := a[pivo[p],p]: ( 1 方 程 式 の 係数 の 除算 } 
30 for j:= 1 to maxcol do 
37 a[pivo[p],j] := a[pivo[p],j] / app: 
32 for i := 1 to maxrow do {方程式 どう し の 加算 ! 
33 if i ぐ や p then begin 
34 aip := a[pivo[i],p] : 
35 for j:= 1 to maxcol do 
36 a[pivo[i],j] := a[pivo[i],j] - aip * a[pivo[p],]: 
3Z end: 
38 end: 
39 for ji := 1 to maxrow do { デー タ 転 送 } 
4 の for 〕j:= 1 to maxcol do 
27 vi j] = ai 旦 : 
42 for ji:= 1 to maxrow do 
43 for j:= 1 to maxcol do 
44 ai j] = vY[pivo[i], jj] : 
45 end: 
46 
4Z Procedure write_matrix(var a : matrix: 年 n : integer) : 
48 Yar i, 〕) : integer: 
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249| begin 

50 writeln: 

57 for ji := 1 to m do begin 

52 for j:= 1 ton do 

53 write(a[i,j] :10:5) : 

54 writeln: 

55 endi 

56 end: 

95Z 

58| begin {( メイ ンプ ログ ラム )} 
59 assign(dfile, LINEAR.DAT') : 

6 reset(dfile) 

67 readln(dfile, mn) : 

62 for i := 1 tomdo 

63 for j:=s 1 to nm do 

64 read(dfile,a[i,j]): 1{ 行列 要素 の 読み 込み } 
65 Write_matrix(a, 生 , n) : 

66 SWeeP (a, 呈 , n) : 

6Z Write_matrix(a, mn) : 

69 end. 


<LINEAR. DAT の 例 ) 


ここ 
1 

ョ ーー コトー 

ミー ) 


< 実 行 例 > 


1.00000 1.00000 -1.00000 2.00000 
3.00000 5.00000 -7.00000 0.00000 
2.00000 -3.00000 1.00000 5.00000 


1.00000 0.00000 0.00000 3.00000 
0.00000 1.00000 0.00000 1.00000 
0.00000 0.00000 1.00000 2.00000 


行列 の 大 き さ や 各 成 分 の 値 は LINEAR. DAT と いう テキ スト ファ イル か ら 読 み 込む . 配列 pivo 
に は 何 行 目 を 入れ 甘え た か を 示す デー タ が 入っ て いる . この プロ グラ ム で は , 不定 解 , 解 の な い 場 
合 に 対し て 例外 処理 を し て いな い の で , その と き は 実行 時 に エラ ー と な る . 

次 の プロ グラ ム は 連立 1 次 方 程 式 の 解法 を 利用 し て , ヵ 個 の 点 を 通る 最小 次 数 の 多項式 を 求め る 
も の で ある . た だ し *, 手 る (: 手 用 と する . 


[例題 4.5] ヵ 点 を 通る ヵ -1 次 式 … 必 人 … の ie ドド ドド oe 1 
げ ( て ) ニャ デー2x*ー11r 十 12 の げ (一 1) , 7(0) , 2) , 7(3) を 与え て も と の 方 程 式 を 得る . 
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プロ グラ ム 4.5 


oe eo Q 〇 の の QA Go No は 


民 。 民 必 民 ぐっ に いら で Mo No に 
S&S RAR SS る 8 も SS く $ ぬ 8 まさ 8 は SSSSSSSSGNSNEGSSSNSSNSSSSNSNESSSGSSSSGSGS に S 


PrOgram Curve: { *** n 点 を 通る n-] 次 式 *** } 


type row = 1..20: col = 1..21: 
matrix = array [row,col] of real: 
1ine = array [row] of rowW: 


var a : matrix: 
1 JJ, n : integeri 
X : reali 
dfile : text: 


proCedure SWeep(var a : matrix: mmaXrOW, maXCol : integer) : 
Var V : matrix: 

pivo : line: 

1 ), p, temP, maX : integer: 

aPP, aip : real: 


begin 6 
for i := 1 to maxrow do ({ 初期 設定 } 
pivo[i] := ji 
for p := 1 to maxrow do begin 
mAX = Di { 係数 の 最大 値 の 探索 } 
for i :=p+ 1 to maxrow do 
if abs(a[pivo[ i],p]) > 
abs (a [pivo[max], p] ) then max := i: 
temp := pivo[p]: {1 デー タ 交 携 ) 
pivo[p] := pivo[max] : 


pivo[max] := temp: 
app := a[pivo[p].p]: { 1 方 程 式 の 係数 の 除算 
for 〕) := 1 to maxcol do 
a[pivo[p],j] := a[pivo[p],j] / app: 
for ji := 1 to maxrow do { 方程式 どう し の 加算 ) 
if i < p then begin 
aip := alpivo[i],p] : 


for j:= 1 to mmaxcol do 
a[pivoi],j] = a[pivo[i],j] - aip * a[pivo[p],j] : 
end: 
end: 
for ij := 1 to maxrow do {1 デー タ 転 送 } 


for 〕) := 1 to maxcol do 
viij] = ai,]: 


for i := 1 to maxrow do 
for j := 1 to maxcol do 
ai ] = vpivo[i],] : 
end: 


function power(x : real: n : integer) : real: 
Yar ji : integeri 


PX : Teal: 
begin { x( 実 数 型 ) の n 乗 } 
px := 1.0: 
ifn>0 then 
for ij := 1 to n do px := PX * X: 
POWeT := PX: 


end: 
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56| begin 1 メイ ンプ ログ ラム )} 

5Z assign(dfile, CURVE.DAT') : 

58 reset(dfile) : 

59 readln(dfile,n) : 

69 for ij:= 1 ton do begin 

67 readln(dfile.x,a[iun+ 1]): { x,f(x) の 読み 込み ) 
62 for j:=1ton do 

63 a[i,j] := power(xkin -): {1 x の nm-j 乗 } 
62 for j:=1ton+1l do 

65 write(a[i, j] :12:5) : 

66 writeln: 

6Z end: 

68 sweep(aLnin + 1): 1 f(x) の 係数 の 計算 
69 Writelni 

2 の for ji:= 1 to mn do 

Z7 writeln(n - ji:5,a[i,n + 1] :10:5) : 

2Z2| end. 


<〈CURVE. DAT 例 > 


4 
-1 20 
0 12 
2 -10 
3 -12 


< 実 行 例 > 


-1.00000 1.00000 -1.00000 1.00000 20.00000 
0.00000 0.00000 0.00000 1.00000 12.00000 
8.00000 4.00000 2.00000 1.00000  -10.00000 

27.00000 9.00000 3.00000 1.00000  -12.00000 


3 1.00000 
2 -2.00000 
1 -11.00000 
0 12.00000 
この プロ グラ ム の 手続 き sweep は 前 の 例 と 全く 同じ で ある . 関数 power は 実数 r* の ヵ 乗 の 計算 
を 行なう . 


4.4 逆 行列 


道行 列 の 計算 に も や は り Gauss-Jordan 法 を 用 いる こと が で きる . 対象 と する 行列 を 単位 行列 に 
変形 する の と 全く 同じ 操作 を 単位 行列 に 対し て 加え る と 逆行 列 が 求まる . 一 例 を 示す と 下 の 表 の よ 
うに な る . 


eS ee NN Q om wm GO NN は 


AA 
に 】 


[例題 4.6] ぁ 次 正方 行列 の 逆行 列 io 
Gauss-Jordan 法 に より ヵ 次 の 逆行 列 を 求め る . : 


プロ グラ ム 4.6 


programm inversion_matrix: {( *** 逆行 列 *** } 


type matrix = array [1..20, 1..20] of real: 
vector = array [1..20] of real: 


{ Gauss-Jordan 法 に よる n 次 行列 a の 逆行 列 ) 
Procedure gau_jor(var a : matrix: n : integer) : 
Var e : matrix: 

Pivo : vector: 

0 9 dk。 Lth。 も ・ jntegeri 

h, max : real: 


begin 

for i := 1 to n do 

pivo[i] := 0: 

or j:=1tondo 

for i := 1 ton do 

ifi=jLthen e[j,i] := 1.0 
else e[j,i] := 0.0: { 単位 行列 e } 

fork:=1tondobesin 

max := 0.0: { i 列 目 が 最大 の 行 (} 行 ) を 探し 出す } 


for i := 1 ton do begin 
h := abs(a[i,k]) : 
ifh >max then 
if pivoli] = 0 then begin 
中 AaX := h: 
J := i 
end 
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29 end: 
39 pivo[j] := ki { 行 の 入れ 替え を 記録 する )} 
37 h := 1.0 / a[j,k]: 
32 for lh := 1 ton do begin 
33 &t3it] := る 半 1h] * hi 
34 e[j,1h] := e[j,1h] * h: 1{ 行列 a と e に だ 同じ 操作 
35 end: 
36 for i := 1 to n do 
3Z if i <> j】 then begin 
38 hz :=ra は 。 必 必 
39 for 1h := 1 ton do begin 
40 ai,1h] := a[i,1h] - a[j,1h] * h: 
47 e[i,1h] := e[i,1h] - e[j,1h] * h: 
422 end: 
43 end: 
24 end: 
45 fork :=1ton dobegsin 
46 for i := 1 ton do 
42 if pivo[i] =k then 1 := ij 
28 for 1h := 1 ton do 
49 a[k,1h] := e[l,1h] : 
5 の end: 
57 end: 
52 
53 Var a : matrix: 
54 n, 1, 」 : integer: 
55 dfile : text: 
56 
5Z begin { メイ ンプ ログ ラム } 
58 assign(dfile, "MATRIX.DAT'): 
59 reset(dfile): 
60 readln(dfile, n): 
67 for i :=1tondo 
62 for j:= 1 ton do 
63 read(dfile, a[i,j]): 
64 gau_jor(a,n) : 
65 for i := 1 ton do begin 
66 for j:= 1 to n do write(a[i,j] :10:5) : 
6Z writeln: 
68 end: 
69 end. 
L 
<MATRIX. DAT の 例 > 

と 1 

出し 9 

1 

2 4 3 
< 実 行 例 > 


-2.00000 -1.00000 1.00000 
1.00000 -1.00000 -1.00000 
0.00000 2.00000 1.00000 
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この プロ グラ ム で は 6 が も と の 行列 、e が 単位 行列 で ある . 上 述 の 規則 に より を 単位 行列 に 変 
換 し て いく と , e が 逆行 列 に な る . 行列 が 正則 で な い 場 合 の 判断 は , pivoting の 操作 を 行なう 際 。, 
対 角 成 分 の 絶対 値 最大 の 要素 が 十分 小さ い 値 (た と えば 10~?)) で ある か どう か で わか る . 


4.5 微分 方 程 式 


高階 (4 階 ) の 常 微 分 方 程 式 は 一 般 に ヵ 組 の 連立 1 階 常 微分 方 程 式 に 帰着 で きる . し た が っ て , 常 
微分 方 程 式 の 初期 値 問題 の 数 値 解法 と し て は , 1 階 の 微分 方 程 式 に 関す る 解法 が 基本 と な る . この 
場合 に も 数 値 積分 の 場合 と 同様 に , 解 を 求め よう と する 独立 変数 の 区 間 を 微小 な 区 間 (Ax) に 等 分 
割 し , *: 三 xo 十 Ar, 三 1.2,3,… に お ける y(*) の 近似 値 y, を 順次 求め て いく 方 法 が と られ る . 


(a) Euler 法 
問題 
アダ = げ y) 。 oO モア 0 0 0 (4.3) 
を 与え られ る と , xr,: に お ける y の 値 ヵ , が わか れ ば ァ ,: に お ける y ヶ の 敏 係数 yf は (4.3) に よ っ て 方 
寺 了 (rj ア ) と 計算 で きる . し た が っ て r,: か ら ェ rj 誠 」 ま で の 間 の 微小 区 間 に つ いて の 積分 は 


Ay, ニア ュ ュ ーy: 0 (ry) dr テ ( テ ュ ュ ー テ リ ) 廊 
に よっ て 近似 する こと が で きる . 
これ を y』」 に つい て 解い て 
了 a ュ キア 証 ( テ a ュ ー テ の 刻 
が 得 ら れる . これ は Euler の 公式 と し て 知ら れ て いる . あま り 精 度 が 良く な い の で , Euler 法 が そ 
の まま の 形 で 用 いら れる こと は 稀 で ある が , 基本 的 な 考え 方 が わか りや すい の で 例示 し た . 


1 人 呈 71k.BIeS よ (よる 和 分 方 粗 朱 00 RAeyksSedeNse20oSPctNtedRBY345CORRYRESSDGSRRSAPAYRCNcasss5 
y ニャ オ y を Euler 法 で 解き , 真 の 解 と 比較 する . 


プロ グラ ム 4.7 


7| program euler_method: { *** オイ ラー 法 *** !} 

り 

3| function dy_dx(x, y : real) : real: { dy/dx =x+y } 
2| begin 

5 dy_dx := x + y ツ : 

e| end: 

Z 

8 


Procedure euler(var y : real: x, step : real) : 
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2| begin 

79 y :=y+ dy_dx(x,y) * step: 

7| end: 

メグ 

73| const interva] = 10: 

74| Var X, y, Xinit, yinit, xend, step, strict : real: 

75 count : integer: 

76 

7Z| begin 

78 write('x, y の 初期 値 ? '): 

79 readln(xinit, yinit) : 

20 write('x の 値 と 幅 ? '): 

27 readln(xend,step) : 

22 count := 0: 

23 X := Xinit: 

24 y := yinit: 

2 人 WE も en の 光 が CXC32 う ツー yy が Kd2D5 

26 repeat 

2Z count := count + 1: 

28 euler(y,x,Step) : 

29 X := X + step: 

3 の if count = interval then begin 

37 count := 0: 

32 WEte( に xcPsXE12。 yy 2 "ya12): 

33 strict := (1.0 + xinit + yinit) * 

34 exp(-xinit) * exp(x) - 1.0 - x: 

35 writeln(′ strict y : ”,strict:12) : 

36 end: 

3Z until x >= xend: 

38| end. 

< 実 行 例 

x, y の 初期 値 ? 0 1 
x の 半 値 と 幅 ? 1 0.01 

x :0.000000E+00  y : 1.000000E+00 
x :1.000000E-01 y : 1.109244E+00 strict y : 1.110342E+00 
x :2.000000E-01 y : 1.240380E+00 strict y : 1.242806E+00 
x :3.000000E-01 y : 1.395698E+00 strict y : 1.399718E+00 
x :4.000000E-01 y : 1.577727E+00 strict y : 1.583649E+00 
x :5.000000E-01 y : 1.789264E+00 strict y : 1.797443E+00 
x :6.000000E-01 y : 2.033393E+00 strict y : 2.044238E+00 
x :7.000000E-01 y : 2.313527E+00 strict y : 2.327505E+00 
x :8.000000E-01  y : 2.633430E+00 strict y : 2.651082E+00 
x :9.000000E-01 y : 2.997265E+00 strict y : 3.019206E+00 
x :1.000000E+00  y : 3.409628E+00 strict y : 3.436564E+00 


(b) Runge-Kutta 法 
Runge-Kutta 法 は 方 程 式 "" ニア (+, ヶ ) を 与え られ た と き , 
了 ュ ュー ニア : 十 (ん 」 十 2 ん 2 十 2 ん 3 十 ん 4) /6 
に よっ て *i: と: か ら ォ +i に お ける を 定め る . た だ し 
ん 」 = 4A* メ げ (テア) 


Ar た 
ん 。 ニ Ax・ ( j 十 一 一 3 
2 系 キ ーー が 


108 第 部 応 用 編 


ん 3 三 人 A ァ ・ げ 光 》 下 学 。 ア 証 タ 


ん 。 ー Ar・ げ (r: 十 Ar yi 十 ん 3) 
で ある . これ は くわ し く は 四 次 の Runge-Kutta 法 と いわ れる . この 方 法 は Euler 法 ょ り 精 度 は は 
る が に 良い . 

4.3 は Euler 法 お よび Runge-Kutta 法 そ れ ぞ れ に お いて , xr, と y, と か ら *a テ 1 に お ける ア 計 
を 算出 する プロ セス を 模式 的 に 示し た も の で ある . Euler 法 に お いて は , 点 (*j, y,) で の 敏 係数 を 
その まま ァ 』」 ま で 外 挿 し て +」 を 定め て いる . これ に 対し て Runge-Kutta 法 で は (i) まず 点 (r. 
y) に お ける 敏 係 数 ( 図 中 の 実線 矢印 ①) か ら ゅ の 増分 を 」 を 推定 する . 次 に , (⑪) 点 (rj, y:) と いま 得 
た 点 (X 誠 ュ , ア ji 十 ん) の 中 間 点 で の 敏 係数 (破線 矢印 ②) か ら , これ に 平行 な 破線 で 示す 直線 に よっ 
て 増分 を 2 の 推定 を 行なう . (i) これ を さら に 繰返し て , (1 点 鎖線 矢印 ③) か ら 第 3 の 増分 推定 ん 。 
を 得る . (つい で 第 3 の 推定 点 (x 十 A, yi 十 ん 3 ぅ ) に お ける 後 係数 (点線 矢印 ④) か ら 第 4 の 増分 推 
定 を 。 を 算出 する . (*) そし て 最後 に これ ら 4 つの 増分 推定 を 1 : 2 : 2 : 1 の 重み を つけ て 平均 化し , 
最終 的 な 増分 推定 と する . 


(a) Euler 法 (b) 4 次 の Runge-Kutta 法 


4.3 Euler 法 と Runge-Kutta 法 の 比較 


[例題 4.8] Runge-Kutta 法 に よる 微分 方 程 式 の 解 … 必 … へ ………ー ド ドド ドド ドド トド ーー トー : 
前 の 例題 と 同じ ッ = ニ ェ +y を Runge-Kutta 法 で 解き , 真 の 解 と 比較 する . 
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プロ グラ ム 4.8 
7| program runge_kutta_method: { *** ルン ゲ ク ッ タ 法 *** } 
り 
3| function dy_dx(x, y : real) : real: { dy/dx = x+y } 
4| begin 
5 人 VCOGX * ニ X 3W? 
6| end: 
Z 
8 


9| var dy1, dy2, dy3, dy4 : real: 


7| begin 

72 dy1 := dy_dx(x, y)*step: 

73 dy2 := dy_dx(x + step*0.5, y + dy1*0.5)*step: 
72 dy3 := dy_dx(x + step*0.5, y + dy2*0.5)*step: 
75 dy4 := dy_dx(x + step , y + dy3 ) *step: 
76 y := y + (dy1 + 2.0*(dy2 + dy3) + dy4) / 6.0 
7Z| end: 


79| const interval = 10: 


Procedure runge_kutta(var y : real: x,step : real) : 


2 の | Var X, Xinit, xend, y, yinit, step, strict : real: 


27 count : integer: 

22 

23| begin 

24 write('x, y の 初期 値 ? '): 

25 readln(xinit, yinit) : 

26 write('x の 半 値 と 幅 ? 「): 

2Z readln(xend, step) : 

28 count := 0: 

29 X := Xinit: 

39 y := yinit: 

37 writeln( x : xi:12。 yy : 「,y:12): 
32 repeat 

33 count := count + 1: 

34 runge_kutta (y, x, step) : 

35 X := xX + step: 

36 if count = interval then begin 

3Z count := 0: 

38 MEIbG、。 江 。A2。 の 8 WSE205 
39 strict := (1.0 + xinit + yinit) * 
20 exp(-xinit) * exp(x) - 1.0 - xi: 
27 writeln(′ strict y : ”,strict:12): 
422 end: 

23 until x >= xend: 

24| end. 

< 実 行 例 > 


x, y の 初期 値 ? 01 


x の 終値 と 幅 ? 1 0.01 

x :0.000000E+00  y : 1.000000E+00 

x :1.000000E-01 y : 1.110342E+00 strict y 
x :2.000000E-01 y : 1.242806E+00 strict y 
x :3.000000E-01 y : 1.399718E+00 strict y 
x :4.000000E-01 y : 1.583649E+00 strict y 
x :5.000000E-01 y : 1.797443E+00 strict y 
x :6.000000E-01 y : 2.044238E+00 strict y 
x :7.000000E-01 y : 2.327505E+00 strict y 


・ 1.110342E+00 
: 1.242806E+00 
: 1.399718E+00 
: 1.583649E+00 
・ 1.797443E+00 
・ 2.044238E+00 
・ 2.327505E+00 
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x :8.000000E-01 y : 2.651082E+00 strict y : 2.651082E+00 
x :9.000000E-01 y : 3.019206E+00 strict y : 3.019206E+00 
x :1.000000E+00  y : 3.436564E+00 strict y : 3.436564E+00 


(c) 高階 微分 方 程 式 

次 の 例 は , 高階 微分 方 程 式 の 数 値 解 例 と し て , 2 次 元 ケ アプ ラー 運動 の 方 程 式 (2 つの 2 階 微分 方 程 
式 ) を Runge-Kutta 法 で 解い た も の で ある . 

いま , 惑星 の 運動 面 内 に 太陽 を 原点 と する 直角 座標 系 (xr, x>2) を と る と , 適当 に 無 次 元 化 さ れ た 
ケプラー 運動 の 方 程 式 は 


の | 人 の * ァ > ーー 4.4 
本 RE 間 症 ae 


と 書け る . ここ に r は 太陽 か ら 惑 星 まで の 距離 で = (xi^ 十 x2?) !? で ある . 


Ke 導 to 和 Gy 

ツー デュ 
2 ー ナ 2 
了 3 三 Wi/ の 
74 三 w2/7 

と 置け ば , (4.4) 式 は 
1 リ 3 
2 (4.5) 
Ys" = ー タ た " 
y4 ニーy>/* 


と 変形 で き , 4 元 の 連立 1 階 微分 方 程 式 に 帰着 され る. そこ で , 惑星 の 位置 お よび 速度 の 各 成分 に 
当たる 》i, 2, 3, 4 を 成分 と する ベク トル y を 考え れ ば , (4.5) 式 の 4 つの 微分 方 程 式 は 


or :! 押 (4.6) 
と 書け る . ここ に げ は 関数 ベク トル で 
Y3 
Y4 
が E 
ーy2/r* 


で ある . 式 (4.6) は 4 元 の 1 階 連立 微分 方 程 式 で ある か ら , 4 個 の 初期 条件 を 与え れ ば , 以後 
Runge-Kutta 法 を ベク トル 形 に 拡張 する こと に より , 順次 積分 し て いく こと が で きる . 

プロ グラ ム で は , 変数 * が 無 次 元 時 間 , y が 上 述 の 4 次 元 ベ クト ル , の が ベク トル y の 1 階 後 
分 係数 を 表す . な お , ケプラー 運動 に お いて は , 角 運 動 量 ( プ ログ ラム 中 で は 変数 ang m で 表す ) 
お よび 全 エ ネル ギー( 変 数 energy で 表す ) が 保存 され る . 数 値 解析 が 正しく か つ 充 分 精度 よく 実行 
され て いれ ば , どの 時 間 ス テッ プ に お いて も , これ ら が 不変 に 保 た れる は ず で ある . プロ グラ ム で 
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は これ ら の 値 を も 計算 ・ 表 示し て チェ ッ ク し て いる . 


了 隊 外交 実 喝 み た ゲー 芋 本 mo の 030Aaeaca2rorD0 計 Si2R れ 23 46wreNertte28 


2 次 元 ケ プラ ー 運 動 の 微分 方 程 式 を Runge-Kutta 法 で 解く . 


プロ グラ ム 4.9 


7| program kepler: { *** 2 次 元 ケ プラ ー 運 動 *** ) 
2| type dep_var = array[1..4] of real: 

3| const y : dep_var = (1, 0, 0.7071068, 0.7071068): 
と 4 

5s| { dy/dx( =f(x,y) ) の 計算 )} 

6| procedure dy_dx(x : real: var y, dy : dep_var) : 
Z| varr, rcube : real: 

g| begin 

9 r := sqrt(y[1]*y[1] + y[2]*y[2]) : 

70 Tcube := T* ネ T* ネ ヤ T・* 

7 dy[1] := y[3]: 

72 dy[2] := y[4]: 

73 dy[3] := -y[1]/rcube: 

72 dy[4] := -y[2]/rcube: 

75| end: 


77| {1 ルン ゲ ク ッ タ 法 に よ - る 徹 分 方 程 式 の 解 ) 


7s| procedure runge_kutta(var y : dep_var: x, step : real ) : 


20 Procedure vector_sum(var c, a, b : dep_var: S : rea]): 
27 var i : integer: 

22 begin 

23 for i := 1 to 4 do 

24 ci] := a[i] + b[i] * si 

25 end: 

26 

2 Procedure vector_scalar(var b, a : dep_var: c : rea1): 
28 var i : integer: 

29 begin 

30 for i := 1 to 4 do 

37 bi] = ai] * ei 

32 end: 

33 

34| var dy1, dy2, dy3, dy4, ydum, dydum : dep_var: 
39| begin 6 

36 dy_dx(x,y, dydum) : 

32 vector_scalar(dy1,dydum, step) : 

38 

39 vector_sum(ydum,y, dy1,0.5) : 

40 dy_dx(x + step*0.5,ydum, dydum) : 

427 vector_scalar(dy2,dydum, step) : 

242 


44 vector_sum(ydum,y,dy3,1.0) : 
25 dy_dx(x + step,ydum, dydum) : 
426 vector_scalar(dy4,dydum, step) : 
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34Z 

28 vector_sum(dydum,dy1,dy2,2.0) : 

49 vector_sum(dydum, dydum,dy3,2.0) : 

5 の vector_sum(dydum,dydum,dy4,1.0) : 

57 vector_sum(y,y,dydum,1.0/6.0) : 

52| end: 

53 

54| const interva] = 10: 

55| Var X, Xinit, xend, step, 

56 energy, ang_ 邊 : Teal: 

5Z 1, count : integer: 

58 outfile : text: 8 

59| begin { メイ ンプ ログ ラム ) 
69 xinit := 0.0: 

67 xend := 2.0 * pi: 

62 step := xend / 100.0: 

63 assign(outfile, KEPLER.DAT') : 

62 rewrite(outfi1le) : 

65 writeln: 

66 count := 0: 

6Z X := xinit: 

68 write( x : xi:10, yy : 「): 

69 for i := 1 to 4 do 

し / write(y[i]:10。。 "): 

2Z7 writeln: 

レク writeln(outfile,x,。  ',y[1],′。 「,y[2]): 
23 repeat 

2Z2 count := count + 1: 

25 runge_kutta(y, x, step) : 

26 X := x 十 step: 

ZZ writeln(outfile,x,  ',y[1],′「,y[2]) : 
Z8 if count = interval then begin 

29 count := 0O: 

89 WE も 2 58107 サタ ーー が 

87 for i:= 1 to 4 do 

82 write(y[i]:10。  「): 

83 writeln:. 

84 ang_m := y[1]*y[4] - y[2]*y[3] : 

85 energy := -1.0 / sqrt(y[1]*y[1] + y[2]*y[2]) + 
86 0.5 * (y[3]*y[3] + y[4]*y[4]) : 
8Z writeln(′ ang. mm : ,ang_m:10, energy : ',energy:10): 
88 end: 

89 until x >= xend: 

99 close(outfile) : 

97 end. 

< 実 行 例 > 


x :0.0000E+00 y : 1.0000E+00 0.0000E+00 7.0711E-01 7.0711E-01 
x :6.2832E-01 y : 1.2892E+00 4.2689E-01 2.6256E-01 6.3542E-01 
ang. 匠 :7.0711E-01 energy : -5.000E-01 
x :1.2566E+00  y : 1.3660E+00 7.8995E-01 -8.568E-04 5.1714E-01 
ang. 邊 :7.0711E-01 energy : -5.000E-01 


x :1.8850E+00  y : 1.3028E+00 1.0738E+00 -1.924E-01 3.8419E-01 
ang. 生 :7.0711E-01 energy : -5.000E-01 
x :2.5133E+00  y : 1.1316E+00 1.2692E+00 -3.485E-01 2.3402E-01 
ang. 胃 :7.0711E-01 energy : -5.000E-01 
x :3.1416E+00  y : 8.6892E-01 1.3617E+00 -4.851E-01 5.3643E-02 
ang. 昌 :7.0711E-01 energy : -5.000E-01 
X :3.7699E+T00  y : 5.2485E-01 1.3244E+00 -6.076E-01 -1.861E-01 
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ang. m :7.0711E-01 energy : -5.000E-01 
x :4.3982E+00  y : 1.1103E-01 1.0998E+O00 -7.000E-01 -5.651E-01 
ang、 遇 :7.0711E-01 energy : -5.000E-01 
x :5.0265E+00  y : -3.090E-01 5.2165E-01 -5.096E-01 -1.428E+00 
ang. 中 :7.0711E-01 energy : -5.000E-01 
x :5.6549E+00  y : 2.6460E-01 -3.638E-01 1.8512E+00 1.2651E-01 
ang. 遇 :7.0695E-01 energy : -5.015E-01 
x :6.2832E+00  y : 9.9898E-01 1.9700E-03 7.0442E-01 7.0906E-01 
ang. 明 :7.0694E-01 energy : -5.015E-01 


図 4.4 は , 結果 を 別 の プロ グラ ム に よっ て 図示 し た も の で , 初期 値 は 位置 ベク タ ト ル x テ (1,0), 
初期 速度 ベク トル ゅ (0.707,0.707) で 4A7 = 0.02 ァ と し て 0= ミ 7=2 ァ で 数 値 積分 し . 求 まっ た * を 
平面 上 に プロ ッ ト し た . 解 が ケプラー 運動 の 理論 通り , 閉じ た 相 円 に な っ て いる こと が わか る . 
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第 選 章 
デー タ 構 造 の 構築 と 利 用 


この 章 で は Pascal 特有 の ポイ ンタ 型 , 集合 型 , レコ ー ド 型 の デー タ の 型 に つい て 説明 し , これ 
ら を 用 いた 簡単 な デー タ 構 造 の 構築 と 利用 例 を 紹介 する . 


S.1 ポイ ンタ 型 


一 般 の 変数 は 前 も っ て デー タ の 型 や 大 き さ を 宣言 し て お くも の ( 静 的 変数 ) で ある が , 実行 中 に 必 
要 な 型 や 大 きき の デー タ の 記憶 域 を 確保 し た り , 消去 し た りす る こと が で きる . この 変数 ( 動 的 変 
数 ) の 記憶 きれ て いる 場所 を 指し 示す 値 を 持つ の が ポイ ンタ 型 で ある . 実際 に は , ポイ ンタ 型 変数 
の 値 は メモ リ 空 間 上 の アド レス で ある . 

具体 的 に , ポイ ンタ 型 や 動 的 変数 が どう いう 意味 か は , 次 の 例題 が よく 表わし て いる . 


プ 曲 グラム .5 は 


7| PrOgram Pointer_ex: 

2| type p_to_integer = ^integer: 

3| Var ip : p_to_integer: 

4 

5| procedure inc2(var j : integer) : 

6 数 引数 : ) 
z| begin 

8 由 ー に ま の s 

9| end: 


77| procedure inc3(jp : p_to_integer) : 


72 { 値 引 数 : 整数 へ の ポイ ンタ j 
73| begin 2 

74 は の が HDP - 半 :38 

75 | end: 

76 

7Z| begin 

78 new(ip) : 


79 ip := 1: write(ip^:5) : 
29 inc2(ip^): write(ip^:5) : 
27 inc3(ip): writeln(ip^:5) 
22| end. 
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< 実 行 例 > 
1 3 6 


ip は , 整数 へ の ポイ ンタ で ある . 標準 手続 き new (ip) は 、ip の 指し 示す 場所 を 確保 する 手続 き で , 
整数 を 指す と き は 整数 の 記憶 域 (2 バイ ト ) を , 実数 を 指す と き は 実数 の 記憶 域 (6 まほ た は 8 バイ ト ) 
を , と いう よう に ポイ ンタ の 指す 型 に 合わ せ た 記 憶 場 所 を 確保 する . ip な る 表現 は , ip の 指し 示 
す も の , すなわち この 例 で は 整数 型 の 変数 で ある . 

この 例 で は , inc2 と いう 手続 き で は 変数 引数 を 使っ て いる の で , 手続 き の 中 で その 変数 の 値 を 
変 と れ ば , も どっ た と き に 引き 渡し た 変数 の 値 は 変化 し て いる . さて , inc3 で は 値 引 数 で は ある 
が , それ は ポイ ンタ で ある . し た が っ て , 主 プ ログ ラム か ら ip が 手続 き inc3 の 引数 jp に 渡さ れる 
と , ip と jp が 同じ も の を 指す こと に な る た め , jp を 3 増やせ ば , ip を 3 増やし た こと に な る . 

この よう に , ポイ ンタ を 用 いる と 値 引 数 を 用 いて 変数 引数 と 同じ よう な こと を する こと が で きる . 
変数 引数 と いう の は , 実際 に は 処理 系 内 で は 変数 の アド レス を 手続 き に 渡し て いる わけ で , プロ グ 
ラム 作成 者 が それ を 意識 し な く て も よい わけ で ある . 

ポイ ンタ が 指 せ る の は , ふつ う の 名 前 を つけ て 宣言 され る 一 般 的 な 変数 ( 静 的 変数 ) で は な く , 標 
準 手続 き new に よっ て プロ グラ ム 中 で 作り 出さ れる 動 的 変数 で ある . 手続 き new は , 引数 の ポイ 
ンタ 変数 に それ が 宣言 され た と き に 決め られ た 型 の 動 的 変数 を 1 つ 作 り だ し , それ を 指す ポイ ンタ 
を 引数 へ 代入 する . な お , 何 も 指 し て いな いこ と を 表わす ポイ ンタ 値 と し て mil が 用 意 き さき れ て いる . 
nll は , 語 記号 で , すべ て の ポイ ンタ 型 に 共通 で ある . 

ip : = mil: 
を 実行 する と , ip は 何 も 指 し て いな いこ と に な る . 

不要 に な っ た 動 的 変数 は , 標準 手続 き dispose に よっ て 消す こと が で きる . また , TURBO Pas- 
cal で は mark と release と いう 手続 き で 動 的 変数 を 解放 する こと が 多い . また memavail と いう 関 
数 で 動 的 変数 と し て 使用 可能 な メモ リ 量 を 調べ る こと も で きる . 


5.2 集 合 型 


集合 と は , 同じ 型 の デー タ (要素 ) を 集め て , 1 つの まとまり と し て 扱う も の で ある . 
集合 型 の 定義 は , た と えば , 

type name_of_the_week = (sunday、monday,、tuesday、 wednesday, 

thursday、friday, saturday) : 
dayoftheweek = set of name_of_the_week: 
と いう よう に 行なう . また 次 の よう な 部 分 男 囲 型 を 用 いて 集合 を 定義 せ する こと も で きる . 

type weekday = set of monday .. friday: 

集合 型 の 値 は . も と と な る 型 (基底 型 と 呼ぶ ) の 値 全体 か ら な る 集合 の 部 分 集合 が 値 と な り , 各 要 
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素 を コン マ で 区 切っ て 全体 を [ ] で 囲む . 
他 の 構造 型 (配列 ・ レ コー ド ) と は 異な り , 集合 型 に は 値 の 演算 が 定義 され て いる . 和 ・ 差 ・ 積 の 
合 演算 の 結果 は 集合 型 で あり , 比較 の 結果 は 論理 型 に な る . 


和 集 合 二 [a, b, c] 十 [b, d, e] = [a, b, c, d, e] 

差 集 合 一 [a, b,c] 一 [b,d, e] = [ag] 

積 集合 * [a,b,c] * [b,d,e] = [b] 

比較 = la、b, cl = [a .. 要素 が 等 し い 
の 18。 も に | な [aqI 等 し く な い 
>= [a, b, c、d, e] >= [a, bl 右辺 が 左辺 に ふく まれ る 
で [d,e] で [d 名 左辺 が 右辺 に ふく まれ る 
im fin [a..Z] 左辺 は 右辺 の 要素 で ある 


た だ し TURBO Pascal の 集合 型 の 制限 と し て , 要素 は 256 個 ぼ で で ある . し た が っ て set of 
char, set of byte は 可 , set of integer は 不可 で ある . 


【 敵 林家 ド " 美 覚 二 び 全 痢 栓 守 eSYPRKSRrRkRE2GSAAGGdYRRaG24243eaeoeua 
英文 の 中 に どの よう な 文字 ・ 母 音 字 が 含ま れ て いる か を 調べ る . 


プロ グラ ム 5S.2 
7 | PrOgTam Strana: { *** 文中 の 文字 、 母 音 *** ) 
2 | Var 1 : integer: 
9 str : string[255] : 
タ 2 vowels, set _ch : set of char: 
5$ 
6e | begin 
Z vowels := [AL BE 1 。 0,」U']: { 母音 字 の 集合 } 
8 set_ch := []: { 空 集合 } 
9 writeln( 文字 列 を 打ち 込ん で くだ さい '): 
7 readln(str) : 
7 for i := ] to length(str) do begin 
72 str[i] := upcase(str[i]) : { 小文字 一 大 文字 } 
73 set_ch := set_ ch + [str[i]] : { 入力 文字 の 集合 ) 
72 end: 
75 
76 write(' 文 字 = 「): 
7Z for i := 0 to 255 do { 集合 要素 の 印刷 } 
78 if chr(i) in set_ch then write(chr(i) ) : 
79 writeln: 
20 set_ch := set_ch * vowels: { 母音 字 と の 積 集合 } 
27 write(' 母音 = 「): 
22 for ji := O to 255 do { 集合 要素 の 印刷 } 
23 if chr(i) in set_ch then write(chr(i) ) : 
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24 writeln: 
25| end. 
< 実 行 例 > 
文字 列 を 打ち 込ん で くだ さい 


The marvellous thing is that it's painless. 
文字 = '.AEGHILMNOPRSTUYV 
母音 = AEIOU 


文字 列 を 打ち 込ん で くだ さい 

The Salinas Valley is in Northern California. 
字 = .ACEFHILNORSTVY 

母音 = AEIO 


文字 列 を 打ち 込ん で くだ さい 
It was the best of times, it was the worst of times, ... 
文字 = ,.ABEFHIMORSTW 
母音 = AEIO 
この プロ グラ ム で は , 小文字 は すべ て 大 文字 に 変換 し , 使用 され た 文字 の 集合 str を 作る . ここ 
で 和 の 演算 を 利用 する . これ を 印刷 し , 次 に 母音 字 vowels と の 積 の 演算 に より , 使用 され た 母音 
字 を 調べ る こと が で きる . 


5.3 レコ ー ド 型 


配列 は , 同じ 型 の デー タ が 連続 し て いる も の で ある が , それ に 対し レコ ー ド 型 は いろ いろ な 型 の 
デー タ を ひと まとまり に し て 扱う た め に 用 いら れる . 
レコ ー ド 型 は 次 の よう に 予約 語 record と end で 囲ん で 宮 言 する . 
type date 三 record 
year : integer: 
month : (january february march, april, may,june, 
july , august 、september, october , november , 
december) : 
day : 1 .… 31: 
end: 
要素 と な る 型 に 制限 は な く , 使わ れ た 名 前 は フィ ー ル ド と よ ば れる . レコ ー ド 型 の 変数 を 宣言 
る と , それ に 含ま れる フィ ー ル ド 分 の 記憶 領域 が 確保 ミ きれる. また , レコ ー ド 型 を 配列 と し て 扱う 
こと も で きる . 
Var today , tomorrow 、yesterday : date: 
memorial : array [1.….10] of date: 
そし て , レコ ー ド 型 変数 の 各 要 素 を 参照 する の に は , 「 変 数 名 . フィ ー ル ド 名 」 と いう よう に し 
て 表わさ れる 名 前 を 使う . また , 変数 名 だ け を 指定 し て レコ ー ド 全体 の デー タ を 代入 する こと も で 
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き る. 
today.year : 三 1986: 
today .month : 三 october: 
today.day : 三 20: 
memorial [1].year : 三 19S5: 
tomorrow : 三 today: 
memorial [3| : 三 today 
上 記 の よう に date と いう レコ ー ド 型 の 宣言 が あり , さら に 次 の よう に date を 用 いた レコ ー ド 型 
student を 宣言 する こと も で きる . 
student 王 record 
name : string [20]: 
sex : (male, female) : 
birthday : date: { date は レコ ー ド 型 ) 
end: 
この よう な レコ ー ド 型 の 入れ 子 で は , 
student .birthday.year : 三 1965: 
と いう よう に , 入れ 子 に な っ て いる フィ ー ル ド 名 を 順 々 に , 
名 前 . フィ ー ル ド 名 . …. フィ ー ル ド 名 
と いう よう に つない で 参照 する . 
し か し , ある 1 つの レコ ー ド 変数 の 要素 を 頻繁 に 参照 する と き に , 常に 変数 名 と フィ ー ル ド 名 を 
並べ る の は 炉 わ しい. この よう な 場合 に は , レコ ー ド 変数 を 固定 する 働き を 持つ with 文 を 用 いる . 
前 述 の 例 で は 
with today do begin 


year: 三 1986: 
month : 三 october: 
day : 三 20: 

end: 


と いう よう に な る . with 文 の begin end の 間 に つ いて は 指定 し た レコ ー ド 変数 名 は 省略 され , フ 
ィ ー ル ド 名 だ け で 変数 へ の 参照 が 行なえ る . 


住所 , 人 性別 年 齢 、 名 前 か ら 構 成 さ れる 個人 デー タ を 定義 し , それ ら の 入力 と 印刷 を 行なう . : 
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プロ グラ ム 5.3 

7| program pers_data: {1 *** 住所 録 *** } 

2| type sextype = (male, female) : 

3 Person_range = 1..10: 

タ 2 personal_data = record 

5 SeX : Sextype: 

6 name : string[20] : 

Z zip_code : string[6]: 

』 address : string[100]: 

9 age ・ 、 integer: 

7 の end: 

7| var personS : array [person_range] of personal_data: 

72 i, j, data_max : integer: 

-73 

72| procedure input_data(var person : personal_data) 

75| begin 

76 with person do 

7Z begin 

78 write(' 人 性 別 0- 男 ,1- 女 ,2- 終 了 :”): readln(}) : 

79 ifj=0 then SeX := male 

2 else if j = 1 then sex := female: 

27 3 で 1 <z,2 4 begin 

22 write( 名 前 : ): readln(name) : 

23 write(' 郵 便 番号 : ): readln(zip_code) 

24 write( 住所 : ): readln(address) : 

25 write( 年 齢 : ): readln(age) : 

26 end: 

2Z end: 

28 writeln: 

29| end: 

39 

sz | procedure write_data(person : personal_data) 

32 | begin 

393 with person do 

34 begin 

35 write(name) : 

36 caSe Sex of 

3 male  : write(′ 男性 "): 

38 female : write(' 女 性 '): 

39 end: 

27 writeln(age, 才 '): 

22 write('〒 ,zip_code) : 

43 writeln(′ ',address) : 

24 writeln: 

2 end: 

26 | end: 

2Z 

48 | begin 

29 ij := 0: 

5 の repeat し ゲー メメ 入 旋 ,。) 

57 se ギ 中 > 

52 input_data(persons[i] ) : 

53 unti1 

54 す ミ 2: 

55 data_max := i - 1:  { デー タ 出 力 ) 

856 for i := 1 to data _max do 

5 write_data(persons[i] ) : 

58| end. 
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ドン 


ゃ 
. 半 
き 理 ご 
守 
沖 
沖 菩 
ご 
ーー】 


番号 : 300-11 
1 


に た = 粒 -c: に ホコ 


に か コ 
聴 


km 


革 計 居 玖 護 革 計 責 諾 革 麻 選 玖 護 二 度 居 玖 護 語 


に た コ | 
中 
下 


:166 
3 


性 別 0- 男 ,1- 女 ,2- 終 了 :2 

青木 英夫 男性 20 才 

〒300-11 茨城 県 牛久 市 小坂 町 X ベ X※ メ ー ベ ぶ 

森 裕子 女性 19 才 

〒213 神奈 川 県 川崎 市 宮前 区 土橋 メー メー メメ 


松田 淳一 郎 男性 21 才 
〒352 埼玉 県 新座 市 栗原 メー メー※ メ ※ 


堤 和子 女性 17 才 
〒166 東京 都 杉並 区 阿佐 ヶ 谷 南 な ※ー メ ー※ メ 


べ 


個人 デー タ は , 名 前 や 住所 性別 、 年齢 か ら 構 成 き れる レコ ー ド 型 の 配列 で ある . 入力 を 行なう 
手続 き input_data, 印刷 を 行なう 手続 き Write_data と は 1 つの レコ ー ド を 引数 と し て 渡し て いる 
レコ ー ド 型 は , 可変 部 も 扱え る よう に な っ て いて , レコ ー ド 型 は 何 種類 か の 可変 要素 か ら 構 成 き 
れる も の と し て 指定 する こと が で きる . 
type position 三 (pitcher,catcher first 、second ,third short . 
left ,center ,right) : 
playrec 三 record 
name : string [20] : 
number : integer: 
case DOS : DOsition of 


pltcher : (win, lost, save : integer: 
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bougyoritsu : real) : 
catcher. .right : (daritsu : real: 
daten ,homerun : integer) 
end 
end: 
Var players : array[1..100] of playrec: 
つま り , pos( こ れ を タグ フィ ー ル ド と いう ) の 値 が pitcher か それ 以外 か に よっ て レコ ー ド の 内 
容 が 異な る . この よう な 宣言 を され た 変数 を 扱う 手続 き で は , 
procedure write_player (player : playrec) : 
begin 
with player do begin 
write (name) : 
write (number : 5) : 
case DOs Of 
pitcher : writeln (win : 3,' 勝 ',lost : 3,' 敗 ',save : 3 セーブ, 
防御 率 ' bougyoritsu : $ : 2) : 
catcher. .right : writeln ("打率 ',daritsu : 5 : 3, 打点 ',daten : 3, 
"ホー ムラ ン ',homerun : 3) 
end 
end 
end: 
型 playrec が 今 問題 と し て いる も の で あり , この 中 に は タグ に よら な い 共 通 の 要素 (name, number) 
と 可変 部 が あり , 可変 部 は pos の 値 に よっ て , (win, lost, save, bougyoritsu) と (daritsu, daten, 
homerun) と に 分 か れる . 
タグ の 型 は 順序 型 に 限ら れ て お り , 型 名 で し か 指定 で き な い . また , その 型 に 属す る 定数 は すべ 
て , どれ か の 選択 肢 の 前 に 現われ て いな けれ ば な ら な い . な お , 大 き な 順 序 型 ( 整 数 型 な ど び ) を タグ 
の 値 と する こと は で き な い . 


S.4 動 的 デー タ 構 造 


実際 の デー タ 構 造 で は , ポイ ンタ 型 や レコ ー ド 型 が 複雑 に 組み 合わ きれ て いる こと が 多い . 
type hmear_list 王 “lst_record: 
list_record 三 record 
Value : integer: 


next : linear_list 


第 $ 章 デー タ 構 造 の 構築 と 利用 123 


end: 


上 の 宣言 を 見 て みよ う . Hist_record と いう 型 は 。 レコ ー ド 型 で フィ ー ル ド と し て , 整数 型 の 
value と linear_list 刑 の next を も ちっ て いる . と ころ が Hmnear_list 型 と いう の は , Hist_record 型 へ の 
ポイ ンタ で ある . すなわち この Hist_record 型 は , 自分 自身 へ の ポイ ンタ を 含ん で いる こと に な っ 
て いる . 

この よう に , 自分 自身 へ の ポイ ンタ を 直接 的 ある い は 間接 的 に 含む 型 の こと を , 再帰 的 な 型 と 呼 
ぶ . 型 の 宣言 に つい て は , ポイ ンタ で 指 き れる 型 に 限っ て , 後 で 定義 する 型 名 を 先 に 使っ て も よい 
こと に な っ て いる . 上 の 例 で は , Hinear_list 型 の 宣言 に 使っ た Hst_record が その 例 で ある . 


nil 
図 5.1 
図 5.1 が 示し て いる よう に , 再帰 的 デー タ は 無限 に 続く こと が で きる . それ を 終わ ら せ る 役目 を 
持つ の が mill で ある . 


[例題 5.3] スタ ッ ク の シミ ュ レ ーション : 
デー タ 列 の 後に 入れ た も の か ら 順 に 取り 出す スタ ッ ク の 動き を 確か め る . 


プロ グラ ム 5S.4 
7| PrOgramm PuSh_poP: {1 *** 数 値 の アプ ッシュ と ポッ プ *** !) 
2| type linear_list = ^list_record: 
3 list_record = record 
タ 2 value : integer: 
8 next : 1inear_list 
6 end: 
| var stack_top : linear_list: 
8 int, i : integer: 
9 


7 の | procedure push(var p : linear_list: i : integer) : 
77| var new_Pp : 1inear_list: 


72 begin 

73 new(new_P) : { 新た な 動 的 変数 } 

72 new_P .Value := ュ : 

了 new_P^.next := Pi { 一 つの 前 の デー タ を 指す } 

76 P := new_P { 最後 の 変数 を 指す ポイ ンタ を 返す } 
7Z | end: 

78 

79| function pop(var p : 1inear_list) : integer: 

z29| begin・ 

7 POP := p .value: { 引数 の 指し て いた 値 が 関数 値 } 

2 ea { ボ ポイ ンタ 値 を 一 つ 前 の も の に も どす ) 
23| end: 
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26 Stack_top := nil: 
2Z repeat 
28 write('push:1,pop:2,end:3 ? ”) jreadln(i) : 
29 case ji of 
39 1 : begin 
37 write('push-- 数 値 ? '): readln(int) : 
32 push(stack_top, int) 
33 end: 
34 2 : writeln('pop 一 - 数 値 = ",Pop(stack_top) ) 
35 end: 
36 unti1 
3Z not (ji in [1,2]): 1 
38 {( スタ ッ ク の 人 金 要 素 の 印刷 } 
39 write('All Pop = ”)・ 
40 while stack_top <> nil do begin  { nil に な る まで 繰り 返す ) 
7 write(stack top^.value : 5)・ { pop の 操作 と 同じ ) 
22 stack_top := stack top^.next 
23 end: 
24 writeln 
45| end. 
< 実行 例 > 
push:1,pop:2,end:3 ? 1 
push-- 数 値 ? 12 
push:1,pop:2,end:3 ? 1 
push-- 数 値 ? 34 
push:1,pop:2,end:3 ? 1 
push-- 数 値 ? 56 
push:1,pop:2,end:3 ? 1 
push-- 数 値 ? 78 
push:1,pop:2,end:3 ? 2 
pop 一 数 値 = 78 
push:1,pop:2,end:3 ? 2 
pop 一 数 値 = 56 


push:1,pop:2,end:3 ? 1 

push-- 数 値 ? 1234 
push:1,pop:2,end:3 ? 1 

push-- 数 値 ? 5678 
push:1,pop:2,end:3 ? 3 

All Pop = 5678 1234 34 12 


この プロ グラ ム は スタ ッ ク に デー タ を 代入 する 手続 き push、 スタ ッ ク か ら デ ー タ を 取り 出す 関 
数 PopP,、 メイ ンプ ログ ラム か ら 成 る . push、pop は 図 5.2 の よう に ポイ ンタ を 利用 し て スタ ッ ク に 
デー タ を 付け た し た り , 解放 し た りす る . メイ ンプ ログ ラム で は push や pop の 呼び 出し を 行ない . 
最後 に スタ ッ ク に ある 全部 の デー タ を 印刷 する . 

この プロ グラ ム で 用 いた よう な デー タ 構 造 を , 線形 リス ト と いう . 次 の 例 は 線形 リス ト を 使っ た 
ソー ティ ング の プロ グラ ム で , この 方 法 を リス ト 挿 入 ソ ー ト と いう . 


ee SQ Q の ゆい や GO N に 


ei 
A < や らい で 


75 
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new-pointer 唄 図 


思い 
new_pointer ーー 二 ー イ | オー 
p 


り 
\ 


は じ め 


6 = 
図 5.2 
プロ グラ ム S.5 
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Program sorting_list: { *** 線形 リス ト に よる ソー ティ ング *** ) 
type linear_list = ^1list_record: 
1ist_record = record 
value : integer: 
next : 1inear_list: 
end: 
var sorted, compared, temp : linear_list: 
int : integer: 


begin 
new(sorted) : 
sorted^.next := nil: { sorted^.next が リス ト の 先頭 } 
repeat 
write(' 数 値 (END=0) ? '): readln(int) : 
if int <> 0 then begin 
CO 箇 Pared := sorted: 
{ 値 が int 以上 に な る まで リス ト を 手繰 る )} 
while (compared~.next <> nil) and 
(compared^.next^.value < int) do 


COmPared := compared^.next: 
new(temp) : 
temp^.value := int: 
temp~^.next := compared^.next: 


compared^.next := temp: 
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25 end 

26 until int = 0: 

2Z write(' 結 果 ='): 

28 while sorted^.next <> nil do begin 
29 with sorted^.next^ do 
39 write(value : 5): 

37 sorted := sorted^.next: 
32 end: 

33 writeln: 

34 | end. 

< 実 行 例 > 


数 値 (END=0) ? 28 
数 値 (END=0) ? 46 
数 値 (END=0) ? 325 


数 値 (END=0) ? -12 
数 値 (END=0) ? 98 
数 値 (END=0) ? 7 
数 値 (END=0) ? 0 
結果 = -12 7 28 46 98 325 
ー46 ] 325 nil 
と 半 
計 
上 計 
U 挿入 
ss 325 
「- 己 = 
| 98 
に 
図 5.3 


この プロ グラ ム で は , 図 $.3 の よう に 数 値 の 大 小 比 較 を 行ない な が ら , 線形 リス ト を 生成 し て い 
く . 数 値 と し て 0 が 入力 され た 場合 、 これら の リス ト の デー タ を 順に 印刷 し て 終了 する . 

最後 の 例 は , 集合 型 と 線形 リス ト 構 造 を うま く 利 用 し た 例 で , や や 複雑 な 例 で は ある が , ヵ 個 の 
点 ( 都 市 ) が あり それ ぞ れ 相互 の 距離 が 与 を られ て いる と き , どう いう 経路 を 通る の が 最短 路 で ある 
か を 探す プロ グラ ム で ある . 


[ 例 茜 S:5] 都市 間 の 最短 垂 区 … い ひさ に SariorAkttt 和 か rt 生 efeeeereeesseaeessee es 
ヵ 個 の 点 と 相互 問 の 距離 が 与え られ て いる と き , 1 番目 の 都市 か ら 7(2 ミ 7 ミ ヵ ) 番目 の 都 市 
| へ 行く 最短 路 を 探索 する . 
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プロ グラ ム 5.6 
7| program dijkstra: ( *** 都市 間 の 最短 距離 *** j 
2| constn = 10: 
3 large_number = 10000: 
4 | type vtx_idx = 中 ss 
5 set_of_vtx = set of vtx_idx: 
6 len_array = array[vtx_idx,vtx_idx] of integer: 
Z pointer_to_vtx = ^V_record: 
8 V_record = record 
9 vtx_number : vtx _idx: 


に 
に 】 


next : pointer_to_vtx 

77 end: 

72| const all _vtx : set_of_vtx = [1..n]: 

7 | var min len to : array[2..n] of integer: { 現在 の 最短 距離 : 
『 
1 


72 parent_vtx_of : array「2..n] of vtx_idx: 1 つ 手 前 の 点 ! 
75 min,temp_len : integer: 

76 tested : set_of_vtx: 

7Z jk 5 vVtx.i0x5 

78 root,pp,q : pointer_to_vtx: 

79 len : len_array: 

2 の dfile : text: 

27 

2 | begin { 都市 間 の 距離 の デー タ の 読み 込み ! 
23 assign(dfile, TOSHI.DAT'): 

24 reset(dfile): 

25 for i:= 1 ton do begin 

26 for j:= 1 to i do begin 

2 read(dfile,1en[i,j]) : 

28 1en[j,i] := 1en[i,jj 

29 end: 

39 readln(dfile): 

37 end: 

32 close(dfile): 

39 tested := [1]: { tested は 調べ た 都市 の number ) 
34 for i := 1 ton do begin 1 

35 min len to[i] := leni1,i]: { 初期 値 は 1 か ら の 距離 
36 parent_vtx_of[i] := 1: { parent は 1 } 

3Z end: 

38 while tested <> al1l vtx do begin ! 全部 調べ る まで 続く 
39 min := large_number: 

429 for i := 2 ton do 

47 ( tested に な く min_len が 一 番 小 さ な も の を 探す ! 
42 if (ji in (all_vtx - tested) ) and 

43 (min len toli] < min) then begin 

44 = 5 

45 min := min len to[i]: 

46 end: 、 

47 tested := tested + [kj: ! その 都市 を tested に 加え る 
428 for ij := 2ton do 

29 if (i in (all_vtx - tested) ) then begin 

59 temp len := min_len_to[k] + len[k,i]: 

7 { k 経由 が 知 い と き は parent を k に し て ) 

52 ( k 経由 の 距離 を 最短 距離 と する j 

53 if min len to[i] > temp_len then begin 

54 min len to[i」:= temp_len: 

55 parent _vtx_of[ij := ki: 

56 end: 

74 end: 


58 end: 
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59 for j:=2tondobegin 

60 write(" 1 から 「,j, へ の 最短 路 '): 
@7 new(pp) : 

62 PP .vtx_number := j: 

63 PP .next := nil: 

64 root := PP: 

65 1 

66 repeat 

6Z 1i := parent_vtx_of[i]: { 1 に ぶつ か る まで 親 を 手繰 っ て いく )}) 
68 new(pP) : 

69 PP .Vtx_number := i: 

2 の PP .next := root: 

7 root := pp: 

22 until ji = 1: 

23 PP := root: 

24 while pp <> nil do begin 

】 write(pp~.vtx_number : 3): 

Z6 PP := PP .next: 

ZZ end: 

28 writeln: 

29 writeln(′ 最短 距離 は ",min_len_to[j]) : 
8 の writeln: 

87 end: 

82 | end. 


<TOSHI.DAT の 内 容 > 


0 
142 0 

85 92. 0 
62 96 30 0 


113 57 35 51 99126 0 

113 29 83 .39 認 明 94 53 2@ 

116 35107 57 78 86 80 25 0 
80 90 187 108 57 41 127 75 56 0 


< 実 行 例 


1 か ら 2 へ の 最短 路 1 5 2 
最短 距離 は 67 


1 か ら 3 へ の 最短 路 1 6 3 
最短 距離 は 74 


1 か ら 4 へ の 最短 路 1 4 
最短 距離 は 62 


1 か ら 5 へ の 最短 路 1 5 
最短 距離 は 47 


1 か ら 6 へ の 最短 路 1 6 
最短 距離 は 38 


1 か ら 7 へ の 最短 路 1 6 3 7 
最短 距離 は 109 
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1 か ら 8 へ の 最短 路 1 5 2 8 


最短 距離 は 96 

1 か ら 9 へ の 最短 路 1 5 2 9 
最短 距離 は 102 

1 か ら 10 へ の 最短 路 1 610 
最短 距離 は 79 


一 例 と し て 1 か ら 2 へ の 最短 路 を 考え る . 1 か ら 各 点 へ の 距離 は 次 の よう に な る . 
re. の イ 才 流 … 変更 
1 か ら の 距離 142 85 62 47 38 113 113 116 80 
親 1 
1 か ら は 6 が 一 番 近 く , 1 か ら 6 に 行く 場合 これ 以上 近道 が な いこ と は 明らか で ある . し た が っ 
て 6 は 集合 tested に 入れ られ る . 
次 に 6 を 経由 し た 方 が 近く な る 点 を 探す と , 3 は 74 で 85 より 小さ く , 10 は 6 を 通る と 79 と な 
り 現 在 の 80 より 短く な る . そこ で , 3 と 10 の 親 を 6 に つけ か える . 
る 「 下 「 ジ あい かす 人 一 馬 
142 74 62 47 38 113 113 116 79 
1 6 ま % 下 4 1 せ 1 :6 
6 の 次 に 選ば れる の は $ で あり , これ より 1-2 間 より さら に 短い 道 が みつ か る . 
2 3 4 ⑨③⑤⑯ 7 8 9 10 
67 74 62 47 38 113 113 116 79 
し 
この よう に し て , 1 か ら 7(7 ミ 2 ミ 10) 番 目 の 点 へ の 最短 路 を 索 し て いく . 
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第 〇 章 
5 Por ン A 


TURBO Pascal ver. $ で は 。 数 値 計算 や 文字 ファ イル の 取り 扱い の た め に 数 多く の 手続 き ・ 
関数 が 標準 で 用 意 さ れん て いる . これ ら に つい て は 第 3 章 で 取り 上 げた . これ 以外 に グラ フィ ックス 
や オペ レー ティ ング シス テム に 関す る 拡張 され た 機能 も 用 意 さ れ て いる が , それ ら は ユニ ッ ト と 呼 
ば れる まとまっ た 機能 に 分 類 さ きれ て いる . 

ュ ユニット に は , Crt, Dos, Graph, Overlay、 Turbo3 な ど が あり , 例え ば グラ フィ ッ ク を 使う 
た め に は Graph ユニ ッ ト を 結合 し て プロ グラ ム を 作成 する . これ ら の 中 で も よく 用 いら れる Crt, 
Dos, Graph の 3 つの ユニ ッ ト に つい て 説明 する . 


6.1 Crt ユ ニッ ト 


Crt ユ ニッ ト に は , ディ スプ レイ や キー ボー ド に 関す る いろ いろ な 手続 き ・ 関 数 が ある . 例え ば , 
文字 に 色 を つけ た り , 画面 上 の 任意 の 場所 に 文字 を 表示 し た り , キー ボー ド の キー を 打っ た 直後 に 
その キー の 文字 を 入力 し た りす る こと が で きる . 代表 的 な も の に は 次 の よう な 手続 き ・ 関 数 が ある . 


ClrScr 画面 を 消去 し , カー ソル を 上 左端 に 置く . 
Delay (ms) ms ミリ 秒 の 遅延 を 行う . DelayFactor の 値 で 調節 する . 
GotoXY (x, y) カー ソル を (X, 『) に 移動 する . 


TextColor (Color) 文字 の 色 属 性 を 設定 する . 
x : 三 KeyPressed キー が 押さ れ て いれ ば true を 返す . 


c:・ ReadKey キー ボー ド か ら 1 文字 読み 込む . 画面 上 に は 表示 され な い . 
入力 が な いと き は , 入力 され る まで 待つ . 

i・ー WhereX カー ソル の x 座標 を 返す . 

i: ニ WhereY カー ソル の y 座標 を 返す . 


この 中 で ReadKey は KeyPressed と 一 緒 に し て 使う と , 押し た キー を 読み 取る こと が で きる . 
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{例題 64| キー ボー ド 線 科 和 oeoetosss3 eevetycdndeeorme odafOtSRS2 和 eee 23636343uaoiRsassee32 : 
:  Aー 乙 の 文字 を 画面 に 表示 し , プレ イヤ ー に 同じ キー を 打 た せる . 同じ 文字 で あれ ば 点数 が 
: 加算 され , 一 定時 間 内 に キー 入力 が な いと , 次 に 進む . 


プロ グラ ム 6.1 


{| *#** キー ボー ド 練 習 *** ]} 


1 

2 | program key_touch: 

3 | usSeS Crt: 

4 | label next: 

5 | var 1i, ji, k, s : integer: 

6 ch, ch2 : char: 

7 

8 | begin 

9 write( 上 級 1 一 一 5 初級 ?'): 


10 readln(j) : 

11 j:=j*1000: 

12 randomiZe: 

13 clTSCT: 

14 gotoxy(6, 10): 

15 write( *** キー ボー ド 練 習 (30 回 ) *** ): 


16 S := 0: 

17 for i := 1 to 30 do begin 

18 gotoxy(10,12): write(i:2, 回目 '): 

19 ch2 := chr($41 + random(26)): {ch2='A て "2 
20 gotoxy(16,14): write(ch2,′- 「'): 

2 fork :=1tojdobegin 

22 if keypressed then begin { キー 押下 ] 
23 ch := upcase(ReadKey) : 

24 write(ch) : 

25 if ch = ch2 then begin { 一 致 ) 
26 Sn 2=S 7 直 5 

27 gotoxy(22,12): write(s:2,′ 点 ') 
28 end: 

29 delay(300): 

30 gotoxy(16,14): write( 「:5): 

31 goto next 

32 end 

33 end: 

34 | next: 

35 end: 

36 gotoxy(16,14): writeln(' 終了 し まし た .') 
37 | end. 


に ュー 
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画面 上 に は , 横 80 字 ( 日 本 語 で 40 字 ) 縦 24 行 の 文字 が 表示 で きる . 文字 列 の 表示 は , 普通 は ス 
クロ ー ル され て 消え て いっ て し まう が , 画面 上 に 座標 を 指定 し て , 特定 の 場所 に 文字 列 を 表示 する 


こと が が できる, 
gotoxy (X, Y) : x, y は 整数 型 


と いう 手続 き を 呼び 出し て , この 次 に write 文 で 文字 列 を 表示 する と xy で 示し た 座標 か ら 文 字 を 


表示 する . 


6.2 Dos ユニ ッ ト 


Dos ユニ ッ ト に は オペ レー ティ ング シス テム や ファ イル を 取り 扱う 数 多く の 機能 が ある . 例え 
ば 現在 の 日 付 , 時 刻 を 取得 し た り , ディ レク トリ に ある ファ イル の 名 前 , 属性 な どの 情報 を 得る こ 
と が で きる . これ に より 計算 時 間 を 調べ た りす る こと が で きる . Dos ユニ ッ ト の 手続 き ・ 関 数 は 


付録 参照 の こと . 


[例題 6.2] 現在 の 日 付 と 時 鹿 … の oe 


現在 の 日 付 , 時 刻 を 得 て . それ を 表示 する . 


プロ グラ ム 6.2 


{ *** 現在 の 日 付 と 時 刻 *** } 
prOgTam date_time: 
uSeS Dos: 
const Week:string[14] = 日 月 火 水木 金 土 : 
var Year, Month, Day, DofWeek 
Hour, Minute, Second, Sec100:word: 
begin: 
GetDate(Year, Month, Day, DofWeek) : 
GetTime(Hour, Minute, Second, Sec100) : 
10 writeln(Year, 年 ',Month,' 月 ',Day, 日 (, 
11 copy(Week, DofWeek*2+1,2),') 「, 
12 Hour, 時 ',Minute, 分 ',Second, 秒 ') 
13 | end. 


Co - コ の つっ <m 愉 < で ここ デ 


に ー』 


この プロ グラ ム は コン ピュ ー タ に 内 蔵 さ れ て いる 時 計 の 日 付 ・ 時 刻 を 読ん で , それ を 表示 する も 


の で ある . 


次 の 例 は MS-DOS の dir コマ ンド と 同じ 働き を する プロ グラ ム で ある 
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【 個 旦 63] ファ イル 名 の 一 覧 で ① 〇 や ドド makeesdvasseevsse 8 
現在 の ディ レク トリ の ファ イル 名 一 覧 を 表示 する . : 


プロ グラ ム 6.3 

1 | | *** ファ イ ル 名 の 一 覧 ** ま * 

2 | program file names: 

3 | uses Dos: 

4 | var Dir:SearchRec: 

5 | begin 

6 FindFirst('*.* ,Archive, Dir): 
上 while DosError=0 do begin 

8 Writeln(Dir.Name,′「',Dir.Size) : 
9 FindNext(Dir) 
10 end 

11 | end. 


6.3 Graph ユ ニッ ト 


は じ め に Graph ユニ ッ ト を 理解 する た め に 図形 表示 の し くみ に つい て 説明 する . 


(a) 図形 表示 の し くみ 
パー ソナ ルコ ンピュータ で は , 画面 上 に 文字 と は 別に いろ いろ な 図形 を 表示 する こと が で きる. 
図 の よう に , 画面 上 の 横 1120X 縦 750 個 ( パ ソコ ン の 機種 に よっ て は 横 640X 縦 400 個 ) の 点 に 色 を 


つ x 方 向 


1120 


(0.0) (1119,0) 


園 隊 錯 閉 了 内 固 國 圏 圏 隔 画 圏 喘 病 囲 囲 園 國 晃 
一 大 較 圏 圏 国 開 半量 岡 功 弄 男 賠 較 有 較 陣 
画 圏 護 國 較 画 国 岡 岡 草 酔 硬 韻 半 則 画 遼 園 凍 
較 詳 園 因 較 園 隅 賠 國 囲 同 隊 回 大 贈 句 開 賠 肌 
圏 園 細 隔 較 只 較 同 双 古 羽 園 画 了 較 | | 
災 研 園 隊 開 隅 表 賠 | | 
較 騰 一 独 同 図 隔 還 | | 
較 較 画 較 画 較 員 | | 
|) 750LLTTIIITITII | | 
亡 向 國 圏 間 闇 園 周 回 
Y 園 賠 還 園 較 圏 男 
時 
| | | | 
ュー イー イトー 
二 
悦 圏 國 圏 弄 硬 
HH | 
の 
(0,749 始点 終点 (1119,749) 


図 6.1 グラ フィ ックス の 座標 
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つけ る こと に より いろ いろ な 図形 を 表示 する し くみ で ある . また 画面 消去 や 線 分 の 描画 な どの 機能 
を 備え を て お り , た と えば 図 の よう に 始点 と 終点 の 座標 値 を 示せ ば , 線 分 を 描画 する こと が で きる . 
これ ら の 点 (pixel と も いう ) の 座標 は , 横 方 向 が 0 か ら 1119 まで , 縦 方 向 が 0 から 749 まで で , 左 
上 の 点 が (0,0), 右 下 の 点 が (1119, 749) に な っ て いる . 

各 pixel に は , 赤 緑 青 (RGB), 輝度 の ON/OFF で 2 の 4 乗 王 16 通 り の 色 を 付け る こと が で き 
る . 既定 値 う 次 の よう に な っ て いる が 変更 も で きる . 


輝 緑 赤 青 色 色 コ ー ド 輝 緑 赤 再 色 色 コ ー ド 
0 0 0 0 黒 0 1 0 0 0 灰 8 

0 0 0 1 青 ( 暗 ) 1 1 0 0 1 青 9 

0 0 1 0 赤 ( 暗 ) 2 1 0 1 0 赤 10 

0 0 1 1 紫 ( 暗 ) 3 1 0 1 1 柴 | 

0 1 0 0 緑 ( 暗 ) 4 1 1 0 0 緑 12 

0 1 0 1 水 ( 暗 ) 5 3 そま (Wa 泊 13 

0 1 1 0 黄 ( 暗 ) 6 各 あ 科 で 才 7 要 14 

0 1 1 1 自 ( 呈 7 h bm 状 和光 作 15 
(⑪) 基本 機能 


Graph ユニ ッ ト に は , グラ フィ ックス の 機能 が 多数 用 意 さ きれ て いて , uses graph : と いう 宣言 で 
使用 で きる . Graph ユニ ッ ト の 代表 的 な 機能 を ご く 一 部 紹介 する . 


Detect 装置 の 検査 (整数 型 関数 ) 

InitGraph (gd, gm, ”) 初期 化 , 画面 消去 

CloseGraph 終了 

ClearDevice 画面 消去 

Line(x1, y1, x2, y2) 線 分 の 描画 始点 (x1, y1) と 終点 (x2, 72) を 結ぶ 
MoveTo(x, y) 点 を (x, y) に 移動 する . 線 は 引か な い 
LineTo(x, y) 現在 の 点 か ら 点 (X, y) まで 線 を 引く 
SetColor (c) 色 の 設定 , c は 色 コ ー ド 

MoveRel (dx, dy) 相対 移動 

LineRel (dx, dy) 相対 描画 
SetRGBpaletteG, R, G, B) i 番 目 の パ レッ ト に 色 を 設定 する 
PutPixel(x, y, c) 点 (X, y) に 色 c の 点 を 打つ 
GetMaxXX x 方 向 の 最大 値 ( 関 数 ) 
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GetMaxY Y 方 向 の 最大 値 ( 関 数 ) 


グラ フィ ックス を 利用 する 場合 は , uses graph : の 宣言 以外 に , は じ め に Detect, InitGraph の 初 
期 化 機能 を 呼び 出さ な いと いけ な い . 最後 に CloseGraph を 呼び 出し , その 間 必 要 に 応じ て , 線 分 
の 描画 や 色 の 設定 な どの 機能 を 利用 する こと に な る . 

例え ば , 画面 に 三角 形 を 表示 する プロ グラ ム は 次 の よう に な る . 色 コ ー ド の 規定 値 は 15( 白 ) で 
ある . 


InitGraph(gd, gm,「): 
Line(300,.500,800, 500) : 
Line(800,500,600, 200) : 

9 Line(600,200,300,500): 

10 readln: {| @ キ ー を 押し て 画面 が 消え る } 
11 CloseGraph 
12 | end. 


1 | program tri(input, output) : 

2 | uSeS graph: 

3 | VaT gd,gm:integer: 

4 | begin 

5 gd:=Detect: { 初期 化 } 
6 

7 

8 


プロ グラ ム 6 行 目 Init Graph の 3 番目 の 引数 は グラ フィ ックス の 実行 に 必要 な BGI ファ イル の 
存在 する ディ レク トリ を 指示 する *. カレ ント ディ レク トリ に ある と き は この よう に 空 文字 列 に す 
る . 

な お , 最後 の CloseGraph を 使う と グラ フィ ッ ク の 画面 が 消去 され て し まう の で , JJ キー を 押す 
まで 画面 を 残し て お く た め に readln が 入っ て いる . 


(c) 直線 図形 
グラ フィ ックス の 基礎 は 直線 を 画面 に 表示 する こと で ある . 座標 計算 の 手順 が わか れ ば 座標 値 を 
順に 線 分 で 結び , 図形 を 表示 する こと が で きる . 


[例題 6.4] ラン ダム ウォ ー ク …… の eee ek530253vo 和 160362032 る 8 : 
画面 中 央 の 点 か ら 方 向 を 乱数 で 決め て 短い 線 を 引き , それ を 繰り 返す . 


* 情報 教育 棟 の FMR で は 3 番目 の 引数 を 'e : \pascall と する . ここ を ” に する と き は ファ イル e: 
せ pascal\fmrh. bgh を カレ ント ディ レク トリ に コピ ー し て か ら 実 行 する . 
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プロ グラ ム 6.4 
ー 

] | [| *** ラン ダム ウォ ー ク ##** 
2 | program random_walk(output) : 
3 | uses Crt, Graph: 
4 | var gd,gm,X,y,1 : integeri t:real: 
5 
6 | begin 
| gd := Detect: 
8 InitGraph(gd,gm, ): 
9 ClearDevice: 


10 RandomiZe: 
11 x:=GetMaxX div 2: 
12 y:=GetMaxY div 2: 


18 moveTo(x, y) : { 画面 中 央 の 点 } 
14 350: 

15 repeat 

16 1 :=1+1・ 

17 setColor(i div 100 mod 7+9): 
18 { : =Ta1dOm*2*D1 : 

19 x:=x+Tound(5*cos(1) ) : 

20 y:=yTround(5*sin(t) ) : 

21 LineTo(x, y) : 

が 2 Delay(50) 

23 until KeyPressed: 

24 read]n: 


25 Cl1oseGraph 


26 | end. 四 


この 例題 で は , graph ユニ ッ ト 以 外 に crt ユ ニッ ト を 使っ て いる . crt ユ ニッ ト は グラ フィ ックス 以 
外 の 画面 制御 な どの ユー ティ リティ が 含ま れ て いる . 
delayG) は 時 間 稼 ぎ ( 表 示 を 遅く する た め ) を する 手続 き で ある . 
KeyPressed は 何 か キ ー が 押さ れれ ば true を 返す 関数 で ある . ここ で は 何 か キ ー( 例 えば ス 
ペー スキ ー) を 押す と 繰り 返し を 中 止 する . 
画面 中 央 の 点 は x, y の 最大 値 を 2 で 割っ て 求め る . random は 引数 が な いと , 0 以上 1 未満 の 一 
様 乱数 を 得る こと が で きる . 
次 に 交 何 学 的 な 図形 の 例 と し て , ダイ ヤ モ ン ド パ タ ー ン と 呼ば れる 図形 を 表示 する . 表示 方 法 は 
始め に 正 多角 形 の 頂点 座標 値 を 計算 し , 次 に これ ら の 頂点 問 を 直線 で 結ぶ . 


[例題 6.5] ダイ ヤ モ ン ド パ バター ンー 
正 多 角形 の すべ て の 頂点 を 直線 で 結び が, ダイ ヤ モ ン ド バ タ ー ン と 呼ば れる 図形 の 表示 を 行う : 
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プロ グラ ム 6.5 


| *** ダイ ヤ モ ン ド パ タ ー ン **#* 

DrTOgTam diamond: 

usSeS Graph: 

Var gd, gm, 1, ], np : integer: 
x, y : array[1..100] of integer: { 座標 値 | 
rs, ang : real:  { 半径 、 角 度 } 


begin 
gd := Detect: 
InitGraph(gd,gm,「「): 
write(' 頂点 数 ? '): readln(np) : 
Ts := GetMaxY/2. 2: 
for i := 1 to np do begin { 正 多角 形 の 頂点 ) 
ang := 2*pi*(i-1) /np: 


ここ ーー ュー ニョ デー ピ q ョ ーー ョ ョ ョ コ ョ ニー 
< で < の こつ の) <m 違 < こら ーー < らら OO- コ oO っ <m エ < で う トト S テ 一 


x[i] := round(rs*cos(ang) + GetMaxX div 2) : 
y[i] := round(rs*sin(ang) + GetMaxy div 2): 
end: 
for i := 1 tomp - 1 do { 頂点 間 の 線 分 描画 } 
for j:=i+ 1 tonp do 
line(x[i],y[i], x[j], y[j]) : 
21 readln: 
22 CloseGraph 
23 | end. 


プロ グラ ム の 12 一 17 行 が 正 多角 形 の 頂点 座標 値 の 計算 部 分 で ある . 円 周 上 を n 等 分 し た 点 の 座 
標 を 計算 する . 円 の 半径 は , 画面 y 方 向 の 最大 値 の 半分 より わずか に 小さ い 値 に 設定 する (12 行 ). 
円 の 中 心 は 画面 の 中 心 に 等 し くす る . 計算 され た 座標 値 は 配列 に 記憶 し て お く . 

後半 の 18 一 20 行 が 表示 部 分 で ある . この 部 分 は n 個 の 中 か ら 異 な る 2 個 を すべ て 選び 出す 繰り 
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返し 処理 で ある . 
表示 例 を 図 6.2 に 示す . 左 が 頂点 数 23, 右 が 24 の 表示 例 で ある . 頂点 数 が 奇数 の と き は 図形 の 
中 央 に 空白 部 分 が で き , 偶数 の と き は 放射 状 に 線 が 通過 する . この プロ グラ ム は プロ グラ ム の 変更 
な し に , パソ コン の 機種 に 依存 し な いで 図形 を 表示 する こと が で きる . 


(d) 曲線 図形 

曲線 図形 の 作図 は , 基本 的 に は 曲線 を 微小 区 間 に 分 割 し , 各区 間 を 直線 と みな し て 線 を 描画 する 
こと に より 作図 で きる . どれ くら い の 長 さ に 分 割 す る か は , 曲線 の 曲率 や 画面 の 解像度 に 依存 する 
( 図 6.3 参照 ) . 


[例題 6.6] 極座標 図 移 ……… ド ドド ドド ドド 
rasin(p 9/q) と いう 極座標 図形 を 表示 する . 


プロ グラ ム 6.6 


( *** 極座標 図形 *** ] 


progTam TOSe(input, output) : 
usSeS Graph: 


1 
2 
3 
4 
5 | Var gd, gm,D,q,nD,1,X,y : integer: 
6 EN 下 S-$ 641. 

7 

8 | begin 

9 write('p,q の 値 ?'): 

10 readln(p, q) : 


11 np := 400 * qi { 繰返し 回 数 } 
12 if (p mod 2 = 1) and 
13 (q mod 2 = 1) then np := np diV 2: 


14 gd := Detect: 

15 InitGraph(gd, gm,「): 

16 ClearDevice: 

17 for ji := 0 to np do begin 

18 th :=2.0*PI*i/400: ( 角度 ] 
19 rs := GetMaxy/2.2 * sin(p * th / q): 


20 x := round( rs * sin(th) + GetMaxX/2) : 

21 y := round(-rs * cos(th) + GetMaxY/2) : 

22 ifi>0 then lineto(x,y) [{ 線 素 の 描画 } 
23 else moveto(x,y) 

24 end: 

25 readln: 


26 CloseGraph 
27 | end. 
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り 


グ NN “ 


(@) 再帰 的 図形 
再帰 的 な 図形 の 例 と し て , 直線 を 再帰 的 に 2 つ に 分 枝 さ せる 樹 形 図 と , 多角 形 の 辺 を 再帰 的 に 変 
形 さ きせ て いく コッ ホ 曲 線 の 生成 と 表示 を 行う . 


[例題 :6:7] |: 構 形 図 め 催 騰 aoieeetsbasesoessaysostteanodeoas2tn2atteReaseeodeeeeee 
線 分 を 次 々 に 2 股 に 分 枝 さ せ て 樹 形 図 を 作成 する . 5 


プロ グラ 67 


1 | { *** 再帰 用 法 に よる 樹 形 図 *** } 
2 | DrTOgTam tree_disDp: 

3 | usSes Graph: 

4 | var gd, gm :integer: 

5 

6 

7 

8 


procedure tree(n,x,y:integer:ang, len:real) : 
Var X1,y1 : integer: 


begin 

9 if n>0 then begin 
10 x1 := round(x+len*cos(ang#*pi/180) ) : 
11 y1 := round(y-1en*sin(ang*pi/180) ) : 
12 1ine(x, y, x1, y1) : 
も ang := ang*(random*0.1+0.95): 
14 1en := len*(random*0.1+0.95): 
15 tree(n-1, x1, y1, ang-15,1en/1.3): { 2 分 技 } 
16 tree(n-1, x1, y1, ang+15, 1en/1.3): 
17 end: 
18 | end: 
19 
20 | begin 
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21 gd := Detect: 

22 InitGraph(gd, gm,  ): 

23 Tandom12Z6: 

24 tree(10,GetMaxX div 2,GetMaxY, 90.GetMaxY div 4) : 
25 readln: 

26 Cl1oseGraph 

27 | end. 


プロ グラ ム の 中 心 部 は 6 一 18 行 の 手続 き で ある . 引数 で 示さ れ た 始点 (x, y) と 線 分 の 方 向 (ang), 
線 分 の 長き (len) に し た が っ て , 始点 か ら 1 本 の 線 分 を 描画 する (10 一 12 行 ). 次 に 自然 に 近い 樹 形 
図 を 作る た め , 枝 の 角度 と 長 さ を 乱 数 で 変化 を つけ る . そし て 2 又 に 分 枝 す る 2 本 の 線 分 を 描く 
(15, 16 行 ). 角度 は 左右 に 15"” ずつ ずら し , 枝 の 長 さ を 少し 短く する . 

メイ ンプ ログ ラム で は , グラ フィ ックス と 乱数 の 初期 化 を 行っ て , 上 の 手続 き を 呼び だ す だ け で 
ある . 始点 の 座標 , 核 の 長 さ の 初期 値 は パソ コン の 機種 に 依存 し な いよ うに し た . 角度 の 初期 値 は 
90' で ある . 


図 6.4 
再帰 で 注意 する の が , 再帰 の レベ ル の 深き さ で ある . 最初 の 引数 nm が これ を 制御 する 変数 で あり , 
初期 値 が 10 の と き は 根元 か ら 葉 の 先 まで 10 段階 分 枝 す る . 出力 図 ( 図 6.4) の 左側 は n=10, 右 
側 は n = 12 の 例 で ある . 
再帰 的 な 図形 の 例 と し て , 多角 形 の 辺 を 再帰 的 に 変形 きせ て いく コッ ホ 曲 線 の 生成 と 表示 を 行う . 


[ 簡 還 6 八 コッ ポ 曲 線 …… ド ドド ドド ee 
動 的 デー タ 構 造 を 使っ て コッ ホ 曲 線 の 描画 を 行う . 8 
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プロ グラ ム 6.8 


{| *** コッ ホ 有 曲線 の 描画 *** ]} 
program koch(input, output) : 
useS Graph: 


type pointer = cel1: 
cel] = record 
ip : pointer:、 


X : Teal: 
Y : Teal: 
end: 


Var root, tmp, next : pointer: 
nD, IDD : integer: 
pat : array[1..18, (x,y)] of real: 


procedure transform: { 自己 相似 変形 } 
Var Kk : integeT: 

leng, ct, st, tx, ty : real: 

tmp2, tmp3 : pointer: 
begin 


= next .xX - tmp .x: 
ty := next .y - tmp .y: 
leng := sqrt(tx*tx + ty*ty): { 辺 の 長 さ )} 
ct := tx / leng: { 回 転 角 } 
st := ty / leng: 
for k := 1 tonpp do begin {[ パタ ー ン の 回 転 
new(tmp2) : 
tx := pat[k, x]*ct - pat[k, y]*st: 
ty := pat[k,x]*st + pat[k, y]*ct: 
tmp2 .x := tmp .X + ]1eng*tX: 
tmp2~.y := tmp .y + leng*ty: 
if k = 1 then tmp .ip := tmp2 
else tmp3 .ip := tmp2: 
tmp3 := tmp2 
end: 
tmp2 .ip := next: 
tmp := next 
until next".ip = nil 


end: 
procedure display: { 多角 形 の 表示 } 
VaT X, y : integer: 
begin 
ClearDevice: 
tmD := Toot: 
repeat 


X := Tound( tmp .x + GetMaxX/2) : 
y := round(-tmp .y + GetMaxY/2) : 
if tmp < く > root then lineto(x, y) 


1 
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52 else moveto(x, y) : 

53 tmp := tmp .ip 

54 unti] tmp = nil 

55 | end: 

56 

57 | var gd, gm, 1i, ans : integer: [ メイ ンプ ログ ラム } 
58 | begin 


59 write(' 頂 点数 ? "): { 多角 形 の 入力 } 
60 readln(np) : 

61 new(root) : 

62 tmD := TOot: 

63 for i:=1 to np do begin 

64 write( 座標 値 (x y) ?「): 


65 readln(tmp .x,tmp .y): 
66 new(tmp .ip) : 

67 tmp := tmp .ip 

68 end: 

69 tmp .X := root「.X: 

70 tmp .y := Toot「.y: 


71 tmpD .1D := nil: 

72 write(' 頂 点数 ?′): { 変形 パタ ー ン の 入力 )} 
73 readln(npp) : 

74 for i:= 1 to npp do begin 

75 write( 座標 値 (Cx y) ?「): 

76 readln(pat[i, x], pat[i,y]) 

77 end: 

78 gd := Detect: 

79 InitGraph(gd,gm, 「): 


80 anS := 0: 

81 repeat 

82 display: 

83 write(' 終了 :1 2? 「): 
84 readln(ans): 

85 if ans = 1 then halt: 
86 transform 

87 until false 

88 | end. 


図 6.5 の よう に 図形 を 構成 する 線 分 を ある 規則 に より 複数 個 の 連続 し た 線 分 に 分 け , これ ら の 各 
線 分 に 対し て 同じ 規則 を 次 々 に 適用 し て いく こと に より 得 ら れる 図形 が コッ ホ 曲 線 で ある . 線 分 を 
ーー つなぎ の 複数 個 の 線 分 に 分 割 し , これ ら の 線 分 に 対し て 同じ 変形 規則 を 適用 する プロ グラ ム を 作 
成す る . これ を 図 6.6 の よう に 座標 データ を レコ ー ド 型 の セル で 表し , ポイ ンタ を 付け 変え る こと 
に より , 図形 を 変形 させ て コッ ホ 曲 線 の 作成 と 表示 を 行なう の が , 例題 6.8 で ある . 

メイ ンプ ログ ラム で は , 最初 の 頂点 列 の デー タ と 変形 する た め の デ ー タ を 入力 する . 頂点 の デー 
タ の 座標 系 は 横 方 向 が ー320 か ら 十 320, 縦 方 向 が ー200 か ら 十 200 に な っ て いる . 変形 パタ ー ン の 
デー タ は , 図 6.5(2②) の よう に (0,0) か ら 始 まり (1,0) で 終わ る 頂点 列 の 中 間 の 点 の 数 と それ ら の 点 
の 座標 値 で ある . 正 3 角形 に 図 6.5(2) の よう な 規則 を 適用 する こと に より 得 ら れる 図形 は , 雪 片 
曲線 と 呼ば れる ( 図 6.7 上 ). 
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6.6 頂点 の 追加 


この プロ グラ ム で は 雪 片 曲線 以外 に も , 入力 デー タ を 変更 する こと に より いろ いろ な コッ ホ 曲 線 
を 描く こと が で きる . 図 6.7 中 , 下 は 正方 形 を 変形 きせ た 例 で ある . 
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で る を 3 を 1 


頂点 数 ? 3 座標 値 (x y) ? -173 -100 座標 値 (x y) ? 0.5 0.2886751 
座標 値 (x y) ? 0 200 頂点 数 ? 3 座標 値 (x y) ? 0.6666667 0 
座標 値 (x y) ? 173 -100 座標 値 (x y) ? 0.3333333 0 
ASP ZS 
く 2 / ヽ 、 
/ ヽ 、/ て / / 
2 
ら ヘン / / に 】 
Re 
頂点 数 ? 4 座標 値 (x y) ? 120 -120 座標 値 (x y) ? 0.4 0.2 
座標 値 (x y) ? -120 120 座標 値 (x y) ? 120 120 座標 値 (x y) ? 0.6 -0.2 
座標 値 (x y) ? -120 -120 頂点 数 ? 2 
lr 
L In 
回 |] 
gr arm 各 
話 各 | 
1 コ 和夫 只 : 
LT] 
頂点 数 ? 4 座標 値 (x y) ? 120 120 座標 値 (x y) ? 0.5 0.25 
座標 値 (x y) ? -120 120 頂点 数 ? 7 座標 値 (x y) ? 0.5 0 
座標 値 (x y) ? -120 -120 座標 値 (x y) ? 0.25 0 座標 値 (x y) ? 0.5 -0.25 
座標 値 (x y) ? 120 -120 座標 値 (x y) ? 0.25 0.25 座標 値 (x y) ? 0.75 -0.25 
座標 値 (x y) ? 0.75 0 


図 6.7 いろ いろ な コッ ホ 曲 線 
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付録 A 標準 手続 き ・ 関 数 


1. ファ イル 


・Assign (Var f : name : string) ファ イル 変数 f を ファ イル 名 name に 結び 付け る . f は あら ゆる ファ イル 
型 の ファ イル 変数 . name に は ドラ イブ , ディ レク トリ 名 も 含め る こと が で きる (最大 79 文字 ). 
name の 文字 数 が 0 の と き 標 準 入 出力 と し て 定義 され る . 

・ChDir (s : string) カレ ント ディ レク トリ を s で 示す ドラ イブ , ディ レク トリ に 変更 . $ 1 一 | の 場合 , 
IOResult に エラ ー コ ー ド が 返さ れる . 

・Close (var f) オー プン され た ファ イル の クロ ー ズ . 1$1 一 | の 場合 , IOResult に エラ ー コ ー ド が 返さ れる . 

・Erase(var f) {が 示す 外部 ディ スク ファ イル の 消 去 .・ オー プン し た ファ イル に 用 いて は な ら な い . $1| 
の 場合 , IOResult に エラ ー コ ー ド が 返さ れる . 

・GetDir(d : byte : vars:string)  d で 示さ れ た ドラ イブ の カレ ント ディ レク トリ を ss に 代入 する (d=0 が 
カレ ント ドラ イブ , d= 1 が ドラ イブ A, d= ニ 2 が ドラ イブ B……). エー| の 場合 , IOResult に 
エラ ー コ ー ド が 返さ れる . 

・MkDir (s : string)  s で 示さ れ た サブ ディ レク トリ を 新規 作成 する . 人 $1 一 | の 場合 , IOResult に エラ ー 
コー ド が 返さ れる . 

・Rename (var f : newname : string) f が 示す ディ スク ファ イル の 名 前 の 変更 . 
1ー| の 場合 , IOResult に エラ ー コ ー ド が 返さ れる . 

・Reset (var f) 

Reset(var f : file : recsize : Word) 既存 の ファ イル を オー プン する . f は Assign で 定義 され た ファ イル 変 
数 . f が 型 な し ファ イル の 場合 , recsize を 指定 する こと が で きる . これ は デー タ 転 送 時 の レコ ー ド 
サイ ズ で , 省略 する と 128byte と な る . f が すでに オー プン され て いる 場合 , 一 度 ク ロー ズ し て か ら 
再度 オナ ー プ ン す る . また #f が テキ スト ファ イル の 場合 読み 込み 専用 と な る . $!ー| の 場合 , IORe- 
sult に エラ ー コ ー ド が 返さ れる . 

・Rewrite (var f) 

Rewrite (var f : fle : recsize : Word) 新しい ファ イル を 作っ て オー プン する . f は Assign で 定義 され た フ 
ァイル 変数 で ある . {が 型 な し ファ イル の 場合 , recsize を 指定 する こと が で きる . これ は デー タ 転 
送 時 の レコ ー ド サイ ズ で , 省略 する と 128byte と な る . f が すでに オー プン され て いる 場合 , 一 度 削 
除 し て か ら 再 度 新しい ファ イル を オー プン する . また , f が テキ スト ファ イル の 場合 出力 専用 と な 
る . 1 一 | の 場合 , IOResult に エラ ー コ ー ド が 返さ れる . 

・RmDir(s : string) s で 示さ れ た 空 の サ プ デ ィ レ クト リ を 消去 する . $1ー| の 場合 , IOResult に エラ ー 
コー ド が 返さ れる . 

・b : = Eof(var f) ファ イル の 終わ り の 状態 を 論理 型 で 返す . f は ファ イル 変数 で , ファ イル 最後 の 要素 を 
越 を て いる 場合 , true を 返す . テキ スト 型 で 標準 入力 Input の 場合 , f を 省略 する こと が で きる . 
Iー| の 場合 , IOResult に エラ ー コ ー ド が 返さ れる . 
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・w: 三 IOResult 最後 に 行わ れ た 1/O 操作 の 状態 を 示す 値 を 返す . 結果 は word 型 . 結果 が 0 は 正常 だ っ 
ここ と を 意味 する . な お , デフ ォ ル ト は $1 十 | な の で , $1 一 | に し て お く 必 要 が ある . 


2. テキ スト ファ イル 


・Append(var f ・ text) 既存 の ファ イル を 追加 モー ド で オー プン し , ファ イル ポイ ンタ を 最後 に 移す . $I 
ー| の 場合 , IOResult に エラ ー コ ー ド が 返さ れる . 

・Flush(varf:text) 出力 用 に オー プン され て いる セク タバ ッ フ ァ を ファ イル に 書き 込ん で 空 に する . $I 
ー| の 場合 , IOResult に エラ ー コ ー ド が 返さ れる . 

・SetTextBuf (var f : text : var buf [ : size : word] ) I/O ひ バッ ファ を テキ スト ファ イル に 割り 当て る . デフ 
ォ ル ト は 128byte な の で , この バッ ファ を 大 きく する と き に 使用 する . Reset, Rewrite、 Append の 
直後 に 呼び 出す . size を 省略 する と , SizeOf(buf) と な る (自動 的 に 大 き さ を 計算 する ). 

・b:=Eoln(⑪) 行 の 終わ り の 判定 

・b : SeekEof(《) プラ ンク , タプ ブ を スキップ し た ファ イル の 終わ り の 判定 

・b : = SeekEoln ⑪) プ ブ プランク, タプ ブ を スキ ッ プ し た 行 の 終わ り の 判定 


3. 型 な し ファ イル 


・BlockRead (var f : file : var buf : count : word [ : var result : word) ファ イル f か ら buf の 先頭 へ count 
レコ ー ド を 転送 する . result は 実際 に 転送 きれ た レコ ー ド 数 . レコ ー ド サイ ズ は reset で 指定 する . 

・BlockWrite (Var f : file : var buf : count : Word [ : var result : word) buf の 先頭 か ら count レコ ー ド を フ 
ァイル f に 転送 する . result は 実際 に 転送 きれ た レコ ー ド 数 . 

・L : =filepos(var f) ポイ ンタ が 現在 いる 位置 

・L : filesize(var f) ディ スク ファ イル の サイ ズ ( 要 素数 ) . 

・Seek (var f : n : longint) ファ イル ポイ ンタ を ファ イル の n 番 目 の 要 素 に 移動 する . 

・Truncate (var f) 現在 の ファ イル ポイ ンタ の 先 の 部 分 を 削除 する . 


4. フロ ー 制 御 


・Exit 。 現在 の プ ブロッ ク か ら 脱 出す る . 

・Halt [ (exitcode : word) ] プロ グラ ム の 実行 を 停止 し オペ レー ティ ング シス テム に 戻る . 引数 が な いと , 
0 を 指定 し た の と 同じ に な る . 

・RunError [ (ErrorCode : word) ] プロ グラ ム の 実行 を 止め , 実行 時 エラ ー を 出す . 


S. 算術 関数 ・ 乱 数 


・Randomize 乱数 発生 の 初期 化 を お こ な う . 乱数 値 は シス テム クロ ッ ク か ら 得 る . 
・y: 三 Abs(x) 引数 の 絶対 値 を 返す . 引数 は 整数 型 か 実数 型 . 結果 の 型 は 引数 の 型 に 等 し い . 
・y: 三 ArcTan(x:real) 逆 正 接 関数 (アー クタ ンジ ェ ン ト ). 結果 は ラジ アン . 

・y : 三 Cos(x : real) 余弦 関数 (コサイン ). 

・Y: 三 Exp(X:real) 指数 関数 . e( 自 然 対数 の 底 ) の x 乗 に 等 し い . 

・y: 三 Frac(x:real) 引数 の 小数 部 を 返す . 引数 が 負 の 場合 は 結果 も 負 と な る . 
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y: 三 Imt(x:real) 引数 の 整数 部 を 返す . 結果 も 実数 型 で ある . 引数 が 負 の 場合 は 結果 も 負 と な る . 
y: ニ Ln(x:real) 自然 対数 を 返す . 
・y: 三 Pi 円 周 率 ァ の 値 を 返す . 
y : = Random [(range : word) ] range が 指定 され て いな い 場 合 , 0.0 以上 1.0 未満 の 一 様 乱数 を 作る . 
指定 され て いる と き は , 0 以上 range 未満 の 乱数 値 (word 型 ) が 返さ れる . 乱数 の 初期 化 は rando- 
mize を 呼ぶ か , 変数 randseed (longint 型 ) に 値 を 設定 する . 
・y : 三 Sin(x : real) 正弦 関数 (サイ ン ). 
・y: 三 Sqr(x) 引数 の 2 乗 を 返す . x は 整数 型 ま た は 実数 型 の 式 で , 結果 の 型 は 引数 の 型 に 等 し い . 
・y: 三 Sqrt(x:real) 引数 の 平方 根 を 返す . 負 の 場合 は 実行 時 エラ ー に な る . 


6. 順序 型 ・ 型 変換 関数 


・Dec(var x[ : n : longint] ) 変数 を デ ク リ メン ト す る . x は 順序 型 変数 .n が 指定 され て いる と き n ず つ , 
指定 され て いな いと き 1 ずつ 減少 する . 
・Inc(var x[ : n : longint]) 変数 を イン クリ メン ト す る . x は 順序 型 変数 . n が 指定 され て いる と き n ず つ , 
指定 され て いな いと き 1 ずつ 増加 する . 
・= Odd(x : longint) 奇数 な ら true, 偶数 な ら false を 返す . 
・ 三 Pred() 引数 x の 前 の 要素 を 返す . 結果 の 型 は 引数 の 型 に 等 し い . 
・ 三 Succ(x) 引数 x の 次 の 要素 を 返す . 結果 の 型 は 引数 の 型 に 等 し い . 
・ 三 Round(x : real) 実数 刑 の 値 を 小数 以下 四捨五入 し , 整数 型 に 変換 する . x は 実数 型 の 式 で , 結 
果 は longint 型 に な る . オー バー フロ ー し た と き は エラ ー と な る . 
・L : = Trunc(x:real) 実数 型 の 値 を 小数 以下 を 切り 捨て , 整数 型 に 変換 する . * は 実数 型 の 式 で , 結果 は 
longint 型 に な る . オー バー フロ ー し た と き は エラ ー と な る . 


ピ ビ で ペ ご ど 


7. 文字 列 関係 


・ Delete (var s : string : index : integer : Count : integer) 文字 列 s の index 番目 か ら count 個 の 文字 を 削除 
する . 

・Insert (source : string : s : string : index ・ integer) 文字 列 source を 文字 列 s の index 番目 の 前 の 位置 に 挿 
入 す る . 結果 の 文字 数 が 255 を 越え る と , 越え た 分 は 削除 され る . 

・Str(x[ : width [ : decimals] ] : var s : string) 数 値 を 文字 列 に 変換 する . x は 整数 また は 実数 型 の 式 , 
width, decimals は 整数 型 の 式 で ある . 

・Val(s : string : var v : Var code : integer) 文字 列 s を 数 値 に 変換 し 変数 v に 代入 する . 結果 の code が 0 
で な いと き は , s の code 番目 の 文字 で エラ ー が 生じ た こと を 意味 する . v は 整数 型 ま た は 実数 型 の 

・c : Chr(x : byte) 文字 コー ド に 対す る 文字 を 返す . 

・s : 三 Concat (s1 [ , .……, sN] ) 文字 列 s1 か ら sN まで を 結合 し た 文字 列 を 返す . s : 三 s1 十 s2 十 … 十 sN に 
等 し い . 結果 の 文字 列 数 が 255 を 越え た 場合 , 越え た 分 は 削除 され る . 

・s : 三 Copy(st : string : index : integer : count ・ integer) 文字 列 st の index 番目 か ら count 個 の 文字 列 を 
返す . 

iLength(S ・ string) 文字 列 s の 動 的 長き , つま り 現 在 の 文字 数 を 返す . 結果 は 整数 型 で ある . i: = 
ord(st[O]) に 等 し い . 
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(Pos(Substr,s・string) 文字 列 s 中 の 文字 列 substr が は じ め に ある 位置 を 返す . な い 場 合 は 0 を 返す . 
i:ーOrd(c) 文字 c の コー ド を 整数 値 と し て 返す . 
・ch:ーUpCase(c) 文字 c を 大 文字 に 変換 する . 'a'..z' の 範囲 外 に ある も の は 何 の 影響 も 受け な い . 


8. ポイ ンタ アド レス 関係 


・p: 三 Addr(v)  @ 演 算 子 と 同じ 働き を する . v は 変数 名 , 手続 き ・ 関 数 名 . アド レス を ポイ ンタ 型 で 返す . 
・w: 三 Cseg 現在 の コー ド セ グ メン ト を 返す . 結果 は word 弄 . 

・ 三 Dseg 現在 の デー タ セ グ メ ント を 返す . 結果 は Word 型 . 

・ 三 OfS(x)  x で 示さ れる 変数 ・ 手 続き ・ 関 数 の アド レス の オフ セッ ト を 返す . 結果 は word 型 . 

・ 三 Ptr(seg, ofs : word) セグ メン ト seg と オフ セッ ト ofs で 表 さ れる アド レス を ポイ ンタ 型 で 返す . 

・ 三 Seg(x)  x で 示さ れる 変数 ・ 手 続き ・ 関 数 の アド レス の セグ メン ト を 返す . 結果 は word 型 . 

・ 三 SPtr 現在 の スタ ッ ク ポ イン タ を 返す . 結果 は word 型 . 

・ 三 Sseg 現在 の スタ ッ ク セ グ メ ント を 返す . 結果 は word 型 . 


る ぞ る 用 づ G る る 


9. 動 的 変数 関係 


・Dispose (var p : pointer) 動 的 変数 を 処分 し , それ が 占め て いた メモ リ を 開放 する . p は New 手続 き で あ 
ら か じ め 割 り 当 て られ た ポイ ンタ 型 変数 . 

・FreeMem (var p : pointer : size : Word) 与 を られ た サイ ズ の 動 的 変数 を 破棄 する . getmem で 確保 し た 領 
域 を 開放 する . 

・GetMem (var p : pointer : size:Word) 指定 され た サイ ズ の 動 的 変数 を 作り , 領域 の アド レス を 動 的 変数 
に 格納 する . 

・Mark(var p : pointer) 変数 に ヒー プ ポ イン タ の 値 を 代入 する . 

・New(var p:pointer) 新しい 動 的 変数 を 生成 し , ポイ ンタ 変数 を セッ ト す る . 

・Release (var p : pointer) ヒー プ ポ イン タ を 引数 指定 の 状態 に セッ ト す る . 

・L:ーMaxAvail ヒー プ 用 領域 の 最大 の 未 使用 プ ブロック サイ ズ を 返す . 結果 は longint 型 . 

・L: 三 MemAvail ヒー プ 用 領域 の 未 使用 プロ ッ ク の 合計 を 返す . 結果 は longint 型 . 


10. そ の 他 


・EHillChar (var x : count : word : ch : char) X は 任意 の 型 で ある . x の 先頭 か ら count バイ ト 個 先 の アド レ 
スト に ch の 値 を 書き 込む . ch は 文字 型 ま た は バイ ト 型 の 式 . 

・Move (var source, dest : count:word) 指定 され た 連続 し た バイ ト 数 count を ある 領域 souree か ら 別 の 領 
域 dest へ 転送 する . source と dest は 任意 の 型 の 変数 で ある . 

1:ーHi(x) 引数 x の 高位 バイ ト を 返す . x は integer また は word 型 の 式 で 結果 は byte 型 と な る . 

コ :ーLo(x) 引数 x の 低位 バイ ト を 返す . x は integer また は word 型 の 式 で 結果 は byte 刑 と な る . 

・w: 三 ParamCount 。 コマ ンド 行 で プロ グラ ム に 渡さ れ た パラ メー タ 数 を 返す . 空白 と タプ は 区 切り に な 
る . 結果 は word 型 . 

・s: 三 ParamStr(index) コマ ンド 行 の index 番目 の 文字 列 を 返す . index = 0 の と き は 実行 きれ て いる プ 
ログ ラム の パス ・ フ ァイル 名 を 返す . 

・w: 三 SizeOf(x) 変数 また は 型 名 x の 占め て いる メモ リ 中 の バイ ト 数 を 返す . 結果 は word 型 . 


・w : 三 SWap(x : Word) 


付録 A 標準 手続 き ・ 関 数 
引数 の 上 位 バ イト と 下位 バイ ト の 交換 し た 値 を 返す . 結果 は word 型 . 
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付録 B Crt ユ ニッ ト 


1. 定数 , 型 , 変数 


・crt モー ド 定 数 
VL8025, VLS8020, VL4025, VL4020, BG8025, BG8020, BG4025, BG4020 
0 1 2 3 4 5 6 7 


・ テ キス トカ ラー 定数 
Black, Blue, Green, Cyan, Red, Magenta, Yellow, White 
$00 $20 $80 $AO 3$40 3$60 $CO $EO 


・ テ キス ト 属 性 定数 
VerticalLine, NoVerticalLine, UnderLine, NoUnderLine, Reverse, NoReverse 
$10 $00 $08 $00 $04 $00 
Blink, NoBlink, Secret, NoSecret, BasicGraph, NoBasicGraph 
$02 $00 $O0 $01 $10 $00 


・ カ ー ソ ル 属 性 定数 

DispCursor, NoDispCursor, BlinkCursor, NoBlinkCursor 
$01 $OO $O0 $02 

・Crt 変数 
CheckBreak : boolean STOP キー を チェ ッ ク す る / し な い 
CheckEOF:boolean ファ イル 終了 文字 を 有効 / 無 効 
LastMode:word TextMode が 呼ば し ん る ご と に ビデ オモ ー ド が 記憶 され る . 
TextAttr : byte 現在 の テキ スト 属性 
WindMin:word ウィ ンド ウ の 左上 の 座標 , x = ニ 上位 バ イト , y = 下位 バイ ト 
WindMax:word ウィ ンド ウ の 右 下 の 座標 , x ニー 上 位 バ イト , y = 下位 バイ ト 
Kanji:boolean 漢字 の 取り 扱い 
DelayFactor:word delay で プロ グラ ム が 休止 する 時 間 を 制御 する . 


2. 手続 き ・ 関 数 


AssignCrt(Var ftext) テキ スト ファ イル f を CRT( 画 面 ) と 結び 付け る . これ に より , 標準 出力 (入力 ) は 高 
速 に 出力 (入力 ) され る . 

Beep (Time ・ word) ビー プ 音 を 発生 さき せる . Sound で 設定 され て いる 周波 数 を Time 回 発生 する . 

CIrEol カー ソル 位置 より その 行 の 行末 まで の 文字 を 消去 する . 

CIrScr 画面 を 消去 し , カー ソル を 上 左端 に 置く . 

Delay (ms : word) ms ミリ 秒 の 遅延 を 行う . DelayFactor の 値 で 調節 する . 
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DelLine カー ソル 行 の 消去 し . スク ロー ル ア ッ プ を 行う . 

GotoXY (x, y : byte) カー ソル を (X, y) に 移動 する . ウィ ンド ウ の 相対 座標 を 用 いる . 

ImsLinc カー ソル の ある 場所 に 1 行 挿入 する . 

NormVideo 起動 時 の カー ソル 位置 か ら 読 み 取 っ た オリ ジ ナ ル の テキ スト 属性 を 選択 する . 

Sound (Frequency : word) ビー プ 音 の 周波 数 を 設定 する . Frequency は 周波 数 の 逆数 と し て 使わ れる . 

TextBank(bank : word) 画面 ペー ジ を 切り 換え る . Bank は 0 か 1 で ある . これ を 用 いる と 2 つの テキ スト 
画面 の 表示 を 瞬時 に 切り 換え る こと が で きる . 

TextBlink (BlinkAttr : byte) 文字 の 点滅 (プリ ンク ) 属性 を 選択 する . Blink(= 2) で 点滅 , NoBlink(= 0) で 
普通 の 表示 . 

TextColor(Color : byte) 文字 の 色 属 性 を 設定 する . 

TextCursor(CursorAttr : byte) カー ソル 属性 を 設定 する . 

TextMode (Mode : word) 指定 の テキ スト モー ド を 選択 する . 

TextReverse (ReverseAttr : byte) 文字 の 反転 (リバ ー ス ) 属 性 を 設定 する . 

TextUnder(UnderAttr : byte) 文字 の 下線 属性 を 設定 する . 

TextVertical (VerticalAttr : byte) 文字 の 縦 時 線 属性 を 設定 する . 

Window(x1, y1, x2, y2 : byte) 画面 上 に テキ スト ウィ ンド ウ を 定義 する . 左上 が (x1, y1), 右 下 は 2, y2) 
で ある . 

x: 三 KeyPressed キー が 押さ れ て いれ ば tue, 押さ れ て いな けれ ば false を 返す . 

c: 王 ReadKey "キー ボー ド か ら 1 文 字 読 み 込 む . 結果 は 文字 型 で ある . 画面 上 に は 表示 され な い . 入力 が 
な いと き は , 入力 され る まで 待つ . 

i・ 三 WhereX カレ ント カー ソル ポジ ショ ン の x 座 標 を ウィ ンド ウ に 対す る 相対 位置 で 返す . 結果 は byte 
型 で ある . 

i:・ 三 WhereY カレ ント カー ソル ポジ ショ ン の すり 座標 を ウィ ンド ウ に 対す る 相対 位置 で 返す . 結果 は byte 
型 で ある . 
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付録 C Dos ユ ニッ ト 


1. 定数 , 型 , 変数 


・ フ ラグ 定数 
FCarry, FParity, FAuxiliary, FZero, FSign, FOverflow 
$1 $4 $10 $40 $80 $800 


・ フ ァイル モー ド 定 数 
fmClosed, fmInput, fmOutput, fmInOut 
$D7BO  $D7B1 $D7B2  $D7B3 
・ フ ァイル レコ ー ド 型 
type 
FileRec 三 record 
Handle, Mode, RecSize : word : 
Private : array [1..26] of byte : 
UserData : array [1..16] of byte : 
Name : array [0..79] of byte : 
end : 
TextBuf = array[0..127] of char : 
TextRec 三 record 
Handle, Mode, Bufsize, Private, BufPos, Bufend : word : 
BufPtr : “TextBuf : 
OpenFunc, InOutFunc, FlushFunc, CloseFunc : pointegr : 
UserData : array [1..16] of byte : 
Name : array[0..79] of byte : 


end : 
・ フ ァイル 属性 定数 
ReadOnly, Hidden, SysFile, VolumelD, Directory, Archive, AnyFile 
$01 $02 $04 $08 $10 $20 $3F 
・Registers 型 
type 


Registers 王 record 
case integer of 
0 : (AX, BXX, CX, D, BP, SI, DI, DS, ES, Flags : word) : 
1: (AL, AH, BL, BH, CL, CH, DL, DH : byte) : 


end : 
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・DateTime 型 
tyDe 
DateTime 王 record 
Year, Month, Day, Hour, Min, Sec : integer : 
end : 
・SearchRec 刑 
type 
SearchRec 王 record 
F 出 : array [1..21] of byte : 
Attr : byte : 
Time : longint : 
Size : longint : 
Name : string [12] : 
end : 
・ フ ァイル 操作 に 関す る 文字 列 弄 
type 
DirSr =string [67] : 
NameStr=string [8] : 
ExtSr string [4] : 


・DosError 変数 
var DosError ・ integer : 
0: エ ラー な し 8 : メモ リ 不 足 
2: ファ イル が 見 つか ら な い 10 : 無効 な 環境 
5: アク セス で き な い 11 : 無効 な 書式 
6 : 無効 な ハン ドル 18 : これ 以上 ファ イル は な い 
2. 手続 き ・ 関 数 
・GetIntVec (IntNo : byte : var vector : pointer) 指定 され た 割り 込み ベク タ に 格納 され て いる アド レス を 
返す . 


・Imtr(IntNo : byte : var Regs:Registers) 指定 され た ソフ トウ ェ ア 割 り 込 み を 実行 する . 

・MsDos (var Regs ・ Registers) MS-DOS ファ ンク ショ ンコ ー ル を 実行 する . 

・SetIntVec(IntNo : byte : Vector : pointer) 指定 され た 割り 込み ベク ター に 指定 の アド レス を セッ ト す る . 

・GetDate(var Year, Month, Day, DayOfWeek : word) 現在 の 日 付 を 返す . 

・GetFTime (var f : var Time : longint) ファ イル に 書き 込み が 行わ れ た 最後 の 日 付 と 時 刻 を 返す . 

・GetTime (var Hour, Minute, Second, Sec100 : Word) 現在 の 時 刻 を 返す . 

・PackTime (var DT : DateTime : var Time : longint) DateTime 型 レ コー ド を , SetFTime で 用 いら れる 4 
バイ ト パ ッ ク 形 式 の 日 付 ・ 時 刻 を 含む longint 型 に 変換 する . 

・SetDate (Year, Month, Day : word) 日 付 を 設定 する . 

・SetFTime (var f : Time : longint) ファ イル が 最後 に 更新 され た 日 付 と 時 刻 を セッ ト す る . 

・SetTime (var Hour, Minute, Second, Sec100 : word) シス テム の 時 計 に 時 刻 を セッ ト す る . 指定 し た 時 刻 
が 有効 で な い 場 合 は 無視 され る . 
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・UnpackTime (Time : longint : var DT : DateTime) 4 バイ ト パ ッ ク 形 式 の 日 付 ・ 時 刻 を 含む longint 型 を 
パッ ク さ れ て いな い DateTime 型 に 変換 する 

・L : = DiskFree (Drive : word) 指定 し た ディ スク ドラ イブ の 未 使用 領域 の バイ ト 数 を 返す . Drive = 0 が 
カレ ント ドラ イブ , Drive = 1 が ドラ イブ A, Drive = 2 が ドラ イブ B…… と な る . 結果 は 1ongint 
型 で エラ ー の と き は 一 1 と な る . 

・L : 三 DiskSize (Drive : word) 指定 し た ディ スク ドラ イブ の 総 バ イト 数 を 返す . Drive = 0 が カレ ント ド 
ライ プ ブ , Drive = 1 が ドラ イブ A, Drive = 2 が ドラ イブ B…… と な る . 結果 は longint 型 で , エ 
ラー の と き は 一 1 と な る . 、 

・FindFirst(Path : string : Attr : word : var S ・ SearchRec) 指定 され た (ある い は カレ ント ) デ ィ レ クト リ か 
ら 指 定 さ れ た ファ イル 名 と 属性 に 一 致す る 最初 の エン トリ を 捜す . 

・FindNext (var s : SearchRec) 以前 の FindFirst の 呼び 出し で 指定 され た ファ イル 名 と 属性 に 一 致す る 次 の 
エン トリ を 返す . 

・Fsplit(Path : PathStr : var Dir : DirStr : Var Name : NameStr : var Ext : ExtStr) 
ファ イル 名 を 3 つの 部 分 に 分 解す る . 

・GetFAttr (var f : var Attr : word) ファ イル の 属性 を 返す . 

・SetFAttr(var f: var Attr : word) ファ イル の 属性 を 設定 する . 

・s: 三 FExpand(path :Pathstr) ファ イル 名 を , 完全 な パス 名 を 含む ファ イル 名 に 拡張 する . 結果 は 
Pathstr 型 (string [79] ) . 

・s : 三 FSearch (Path : PathStr : DirList : string) 指定 され た 複数 の ディ レク トリ の 中 か ら 指 定 さ れ た ファ 
イル を 返し ます . 結果 は Pathstr 型 (string [79] ). 

・Exec(Path, Cmdline : string) 指定 され た プロ グラ ム を 指定 され た コマ ンド ライ ン で 実行 する . 

・Keep (ExitCode : Word) プロ グラ ム を メモ リ に 常駐 し た まま 終了 させ る . 

・SwapVectors 割り 込み ベク ター を 入れ 換え る . 

・W : = DosExitCode サブ プ ロ セス の 終了 コー ド を 返す . 

: 三 EnvCount DOS 環境 に セッ ト さ れ て いる 文字 列 の 数 を 返す . 結果 は integer 型 で ある . 

・s: 三 EnvStr(index :integer) 指定 され た 環境 文字 列 を 返す . 

・s : 三 GetEnv(EnvVar : string) 指定 され た 環境 変数 の 値 を 返す . 

・w: 三 DosVersion DOS の バー ジョ ン 番 号 を 返す . 結果 は word 型 で 上 位 バ イト に 整数 部 , 下位 バイ ト に 
小数 部 が 入る . 

・GetCBreak (var Break : boolean) DOS に お ける CTRL-C チェ ッ ク の 状態 を 返す . 

・GetVerify (var Verify : boolean) DOS の ベリ ファ イフ ラグ の 状態 を 返す . 

・SetCBreak(Break : boolean) DOS に お ける CTRL-C の 状態 を 設定 する . 

・SetVerify (Verify : boolean) DOS の ベリ ファ イフ ラグ の 状態 を セッ ト す る . 


付録 D Graph ユ ニッ ト 


1. 定数 , 型 , 変 数 


エラ ター セード 
grTOk, grNoInitGraph, grNotDetected, grFileNotFound, 
0 ー1 ンク 三 き 
grInvalidDriver, grNoLoadMem, grNoScanMen, grNoFloodMem, 
ー4 9 ー6 ー7 
grFontNotFound, grNoFontMem, grInvalidMode, grError, 
ー8 ー9 ー10 ー11 
grIOerror, grInvalidFont, grInvalidFontNum, grInvalidDeviceNum, 
ー12 ー13 ー14 ー15 
grInvalidPrintInit, grPrintNotLinked, grInvalidVersion 
ー16 ー17 ー18 


グラ フィ ッ ク ド ライ バー 
CurrentDriver, Detect 
ー128 0 
CGA, MCGA, EGA, EGA64, EGAMono, IBM8S14, HercMono, ATT400 
1 2 3 4 $ 6 7 8 
VGA, PC3270, PC98, PC98SGRCG, PC98EGC, FMRL, FMRM, FMRH 
9 10 11 12 13 14 15 16 


グラ フィ ッ ク モ ー ド 
FMRC1, FMRC8, FMRC16 
0 1 2 


最大 色 数 
MaxColors 
15 


色 コ ー ド 
Black, Blue, Green, Cyan, Red, Magenta, DarkYellow, 
0 1 2 3 4 5 6 
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Brown, LightGray, DarkGray, LightBlue, LightGreen, 
6 7 8 9 10 
LightCyan, LightRed, LightMagenta, Yellow, White, 
11 12 13 14 的 


線 の 種類 
SolidLn, DottedLn, CenterLn, DashedLn, UserBitLn 
0 1 2 3 、 4 


線 の 幅 
NormWidth, ThickWidth 
1 3 


テキ スタ イル 定数 
DefaultFont, TriplexFont, SmallFont, SansSerifFont, GothicFont 
0 1 2 3 4 
HorizDir, VertDir, UserCharSize 
0 1 0 


クリ ッ ピ ング 定数 
ClipOn, ClipOf 


true false 


3 次 元 バー 定数 
TopOn, TopOff 


true false 


塗り つぶ し パタ ー ン 定数 
EmptyF 辿 , SolidFill, LineF 骨 , LtSlashFill, 


0 1 2 3 
SlashFill, BkSlashFill, LtBkSlashFil, HatchFi, 
+ 1 6 
XHatchF 周 , InterleaveF 則 WideDotF 過 , 
8 9 10 
CloseDotFill, UserFi 
11 12 
イメ ー ジ 出力 定数 
NormalPut, CopyPut, ORPut, OrPut, AndPut, NotPut 
0 0 1 2 3 + 
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テキ スト 位置 合わ せ 定数 


・ 型 
type 


type 


type 


type 


type 


type 


LeftText, CenterText, RightText 
0 1 2 
BottomText, CenterText, TopText 
0 (| 2 


PalletType ニ record 
Size  :byte: 
Colors : array [0..MaxColors] of shortint : 


end : 


LineSettingsType record 
LineStyle : Word: 
Pattern  :word: 
Thickness : word : 


end : 


TextSettingsType 三 record 
Font ・ WOrd : 
Direction : word : 


CharSize : Word : 


Horiz ・ Word : 
Vert ・ WOTd : 
end : 


FillSettingsType = record 
Pattern : Word : 
Color : word: 


end : 


FilPatternType = array [1..8] of byte : 


ViewPortType = record 
x1, y1, x2, y2 : integer : 


clp ・boolean : 
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end : 


tyPe 
ArcCoordsType 三 record 
X, Y ・integer : 
Xstart、 Ystart ・integer : 
Xend, Yend :integer : 
end : 
・ 変 数 
Var 
GraphGetMemPtr : pointer : 
GraphFreeMemPtr : pointer : 
2. 手続 き ・ 関 数 
・Arc(x, y : integer : StAngle, EndAngle, Radius : Word) (x, y) を 中 心 と し て 始 角 か ら 終 角 ま で 円 弧 を 描 


の 

・Bar (x1, y1, x2, y2 ・ integer) (x1, y1) と (*2, y2) を 頂点 と する 長方形 を 描い て 内 部 を 塗り つぶ す . 

・Bar3D (x1, y1, x2, y2 : integer : Depth : word : Top : boolean) (x1, y1) と (x2, y2) を 頂点 と する 長方形 を 
3 次 元 的 に 描い て 内 部 を 塗り つぶ す . 

・Circle (x, y : integer : Radius ・ Word) 中 心 (x, y), 半径 r の 円 を 描く . 

・ClearDevice _ グラ フィ ックス 画面 を 消去 する . 

・ClearViewPort カレ ント ビュ ー ポ ー ト を 消去 する . 

・CloseGraph グラ フィ ックス の 終 本 . 

・DetectGraph (var GraphDriver, GraphMode : integer) ハー ドウ エア を チェ ッ ク し て ドラ イブ と モー ド を 
決定 する . DetectGraph を Detect と 省略 する こと が で きる . 

・DrawPoly (NumPoints : word : var PolyPoints) 多角 形 の 輪郭 を 描く . 

・EIlips(x, y : integer : StAngle, EndAngle : word : XRadius, YRadius : word) 
中 心 (x, y), 始 角 か ら 終 角 ま で の 椿 円 弧 を 描く . 

・EFilEllips (x, y : integer : XRadius、 YRadius : word) 椿 円 を 描い て 内 部 を 塗り つぶ す . 

・EillPoly (NumPoints : word : var PolyPoints) 多角 形 を 描い て 内 部 を 塗り つぶ す . 

・EFloodFill (x, y : integer : Border : word) 閉じ た 領域 を カレ ント フィ ル パ タ ー ン を 用 いて 塗り つぶ す . 

・GetArcCoords (var ArcCoords : ArcCoordsType) 直前 の Arc コマ ンド の 座標 を 得る . 

・GetAspectRatio (var Xasp, Yasp : Word) アス ペク ト 比 を 計算 する た め の グ ラフ ィ ッ ク 画 面 の 実行 分 解 能 
を 得る . 

・GetDefaultPalette (var Palette : PaletteType) デフ ォ ル ト の カラ ー パ レッ ト に 関す る 情報 を 得る . 

・GetFillPattern (var FillPattern : Fi 山 PatternType) SetFilPattern で セッ ト さ れ た フィ ル パ タ ー ン を 返す . 

・GetFillSettings (var F 則 Info : F 和 SettingsType) SetFilStyle ある い は SetFillPattern で セッ ト さ れ た カレ ン 
ト フ ィ ル パタ ー ン と カラ ー を 返す . 

・GetImage (x1, y1, x2, y2 : integer : var BitMap) 指定 され た 領域 の ビッ トイ メー ジ を バッ ファ に セー プ ブ す 
る . 
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・GetLineSettings (var LineInfo : LineSettingsType) SetLineStyle に よっ て 設定 され て いる カレ ント ライ ン 

スタ イル , ライ ン パ ター ン , ライ ン 幅 を 返す . 

・GetModeRange (graphDriver : integer : var LoMode, HiMode : integer) 最大 の グラ フィ ックス モー ド を 

返す . 

・GetPalette (var Palette : PaletteType) カレ ント パレ ッ ト お よび その サイ ズ を 返す . 

・GetTextSettings (var TextInfo : TextSettingsType) SetTextStyle お よび SetTextJustifty に より セッ ト さ れ 

た カレ ント テキ スト フォ ント , 方 向 , サイ ズ , 位置 合わ せ を 返す . 

・GetViewSettings (var ViewPort ・ ViewPortType) SetViewPort に より セッ ト さ れ た カレ ント ビュ ー ポ ー ト 
と クリ ッ ピ ング の 設定 を 得る . 

・GraphDefaults グラ フィ ックス の 設定 を リセ ッ ト す る . 

・InitGraph (var GraphDriver, GraphMode : integer : DriverPath : string) グラ フィ ッ ク シ ステ ム を 初期 化 
し , ハー ドウ ェ ア 情 報 を グラ フィ ッ ク モ ー ド に 返す . 

・Line(x1, y1, x2, y2 : integer) (x1, y1) か ら (2, y2) へ 直線 を 引く . 

・LineRel (dx, dy : integer) カレ ント ポイ ンタ か ら 指 定 の 相対 位置 に ある 点 ま で 直線 を 引く . 

・LineTo (x, y : integer) カレ ント ポイ ンタ か ら (X, y) まで 直線 を 引く . 

・MoveRel(dx, dy : integer) カレ ント ポイ ンタ を 指定 の 相対 位置 に ある 点 まで 移動 する . 

・MoveTo (x, y : integer) カレ ント ポイ ンタ を (X, ) に 移動 する . 

・OutText (TextString ・ string) 出力 デバ イス の カレ ント ポイ ンタ の 位置 に 文字 列 を 書き 出す . 

・OutTextXY (x, y : integer : TextString : string) 出力 デバ イス の (X, y) の 位置 に 文字 列 を 書き 出す . 

・PieSlice (x, y : integer : StAngle, EndAngle, Radius : word) (x, y) を 中 心 に 始 角 か ら 終 角 ま で 扇形 を 描い 
て 塗り つぶ す . 

・PieSliceXY (x, y : integer : StAngle, EndAngle, XRadius, YRadius : word) (x, y) を 中 心 に 始 角 か ら 終 角 
まで 椿 円 の 扇形 を 描い て 塗り つぶ す . 

・PutImage (x, y : integer : var BitMap, BitBlt : word) ビッ トイ メー ジ を 画面 上 に 出力 する . 

・PutPixel (x, y : integer : Color : Word) (x, y) に 点 を プロ ッ ト す る . 

・RectAngle (x1, y1, x2, y2 : integer) カレ ント ライ ンス タイ ル と カラ ー を 使っ て 長方形 を 描く . 

・RegisterBGIdriver (driver ・ pointer) ユー ザ が ロー ド し た BGI ドラ イ バ , ある い は リン ク さ れ た ドラ イ バ 
を グラ フィ ッ ク シ ステ ム に 登録 する . 

・Sector(x, y : integer : StAngle, EndAngle, XRadius, YRadius : word) (x, y) を 中 心 に 始 角 か ら 終 角 ま で 
椿 円 の 扇形 を 描い て 塗り つぶ す . 

・SetActivePage (page : word) グラ フィ ックス 出力 の 対象 と な る アク ティ ブ ペ ー ジ を セッ ト す る . 

・SetAllPalette (var Palette と ) すべ て の パレ ッ ト カ ラー を 指定 され た よう に 変更 する . 

・SetAspectRatio(var Xasp, Yasp : word) デフ ォ ル ト の アス ペク ト 比 を 変更 する . 

・SetBkColor(Color : word) パレ ッ ト を 使用 し て カレ ント バッ ク グ ラン ドカ ラー を セッ ト す る . 

・SetColor(Color : word) パレ ッ ト を 使用 し て カレ ント ドロ ウ カ ラー を セッ ト す る . 

・SetFillPattern (pattern : FilPatternType : Color : word) ユー ザ 定 義 の フィ ル パ タ ー ン を 選択 する . 

・SetFillStyle (pattern, Color : word) フィ ル パ タ ー ン と カラ ー を セッ ト す る . 

・SetGraphBufSize (BufSize : word) スキ ャ ン フ ィ ル と フラ ッ ド フィ ル の た め に 使用 され る バッ ファ サイ ズ 

を 変更 する . 

・SetGraphMode (Mode : integer) シス テム を グラ フィ ックス モー ド に セッ ト し , 画面 を クリ ア す る . 

・SetLineStyle (LineStyle, Pattern, Thickness : word) カレ ント ライ ン 幅 , スタ イル を セッ ト す る . 

・SetPalette (ColorNum : word : Color : shortint) パレ ッ ト カ ラー を 変更 する . 


の 


の 


ミ 


ミ 
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・SetRGBPalette (ColorNum, RedValue, GreenValue, BlueValue : integer) RGB パレ ッ ト を 変更 する . 

・SetTextJustify (Horiz, Vert : word) OutText、 OutTextXY に よっ て 使用 され る テキ スト の 位置 合わ せ を 
表す 値 を セッ ト す る . 

・SetTextStyle (Font, Direction, CharSize : word) カレ ント テキ スト フォ ント , スタ イル , 文字 倍率 を セッ 
ト す る . 

・SetUserCharSize (MultX, DivX, MultY, DivY : word) スト ロー ク フ ォ ント の 文字 の 幅 と 高き を 変更 する . 

・SetViewPort (x1, y1, x2, y2 : word : clip : boolean) カレ ント 出力 ビュ ー ポ ー ト , ある い は ウィ ンド ウ を 
設定 する . 

・SetVisualPage (page : Word) ビジ ュ ア ル グ ラ フ ィ ッ クス ペー ジ 番 号 を セッ ト す る . 

・SetWriteMode (WriteMode : integer) グラ フィ ッ ク 出 力 の 書き 込み モー ド を 設定 する . 


・w: 三 GetBkColor カレ ント バッ ク グ ラン ドカ ラー へ の イン デック ス を 返す . 

・w : 三 GetColor 直前 の SetColor の 値 を 返す . 

・S: 三 GetDriverName カレ ント グラ フィ ックス ドラ イ バ の 名 前 を 含む 文字 列 を 返す . 

・ GetGraphMode グラ フィ ッ ク モ ー ド を 返す . 

・w: GetMaxColor SetColor に 渡す こと の で きる 最大 の カラ ー 値 を 返す . 

・ 三 GetMaxMode カレ ント グラ フィ ックス ドラ イ バ で 使用 で きる 最大 の モー ド 番 号 を 返す . 

・ 三 GetMaxX カレ ント グラ フィ ックス ドラ イ バ お よび モー ド に お ける 右端 の 座標 値 を 返す 

・ 三 GetMaxY カレ ント グラ フィ ックス ドラ イ バ お よび モー ド に お ける 下端 の 座標 値 を 返す 

:・ 三 GetModeName (GraphMode : integer) グラ フィ ッ ク モ ー ド の 名 前 を 含む 文字 列 を 返す . 

・i: 三 GetPaletteSize) パレ ッ ト カ ラー 参照 テー ブル の サイ ズ を 返す . 

・w : 三 GetPixel(x, y : integer) 座標 に お ける ピク セル の 値 を 返す . 

1:ーGetX カレ ント ポイ ンタ の x 座 標 を 返す . 

1: 三 GetY カレ ント ポイ ンタ の y 座 標 を 返す . 

・ 三 GraphErrorMsg (ErrorCode : integer) 指定 され た エラ ー コ ー ド に 対す る エラ ー メ ッ セ ー ジ 文字 列 
を 返す . 

・ テ GraphResult 直前 の グラ フィ ックス 操作 に 対す る エラ ー コ ー ド を 返す . 

・ 三 ImageSize (x1, y1, x2, y2 : integer) 画面 上 の 長方形 の 領域 の 格納 に 必要 な バイ ト 数 を 返す . 

・ 三 InstallUserDriver(DriverFileName : string : AutoDetectPtr : pointer) 
他 の グラ フィ ックス ドラ イ バ を BGI デバ イス ドラ イ バ テ ー ブ ル に 登録 する . 

・ 三 InstallUserFonts (FontFileName : string) 新しい フォ ント を イン スト ー ル する . 

・ RegisterBGIfont (font : pointer) ユー ザ が ロー ド し た BGI フォ ント , ある い は リン ク さ れ た フォ ン 
ト を グラ フィ ッ ク シ ステ ム に 登録 する . 

・ー TextHeight (TextString : string) 文字 列 の 高き を ピク セル 単位 で 返す . 

・ 三 TextWidth (TextString : string) 文字 列 の 幅 を ピク セル 単位 で 返す . 
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付録 選 コン パイ ラ ・ コ マン ド 


注釈 の うち の 制御 文字 , 制御 文字 , …, 制御 文字 


制御 文字 意 味 

A 十 デー タ の アラ イン メン ト を ワー ド (標準 値 ) 

AAー データ の アラ イン メン ト を バイ ト 

B 十 論理 式 の 評価 を 完全 に する (標準 値 ) 

Bー 論理 式 の 評価 を ショ ー ト サー キッ ト に する 

D 十 デバ ッ グ 情報 を 生成 する (標準 値 ) 

Dーー デバ ッ グ 情報 を 生成 し な い 

E 十 数 値 演算 プロ セッ サエ ミュ レー ショ ン (標準 値 ) 
Eー 数 値 演算 プロ セッ サ の エミ ュ レ ーション を し な い 
F 十 FAR コール の 強制 を する 

Fー FAR コー ル の 強制 を し な い ( 標 準 値 ) 

I 二 ~I/O の エラ ー チ ェ ッ ク を 行なう (標準 値 ) 

I エ ー 1I/O の エラ ー チ ェ ッ ク を 行なわ な い 

L 十 ロー カル シン ボル 情報 の 生成 (標準 値 ) 

エー ロー カル シン ボル 情報 を 生成 し な い 

N+ 数 値 演算 プロ セッ サコ ー ド の 生成 

Nー 数 値 演算 プロ セッ サコ ー ド を 生成 し な い ( 標 準 値 ) 

O 填 オー バー レイ コー ド の 生成 

O 一 オー バー レイ コー ド を 生成 し な い ( 標 準 値 ) 

R 十 添字 の 範囲 の チェ ッ ク を 行なう 

Rー 添字 の 範囲 の チェ ッ ク を 行なわ な い ( 標 準 値 ) 

S 十 スタ ッ ク の チェ ッ ク を 行なう (標準 値 ) 

S 一 スタ ッ ク の チェ ッ ク を 行なわ な い 

V+ 変数 引数 の 型 の チェ ッ ク を 行なう (標準 値 ) 

Vー 変数 引数 の 型 の チェ ッ ク を 行なわ な い 

TI ファ イル 名 指定 され た ファ イル を 読み 込ん で コン パイ ル す る 
L ファ イル 名 オプ ジェ クト ファ イル の リン ク 
M stack, heapmin, heapman スタ ッ ク 領 域 の サイ ズ 指 定 , ヒー プ 領 域 の 最小 値 , 最大 値 の 指定 
O ユ ニッ ト 名 ユニ ッ ト を オー バー レイ に する 
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アス キー コー ド 83 
アセ ンプ リー 言 語 

値 引 数 79 

アド レス 115 
アル ゴリ ズム 13 
一 様 乱 数 62 
色 コ ー ド 135 
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一 覧 表 (directory) 35 


半年 。 56 
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大 型 計算 機 3 
オブ ジェ クト プロ グラ 
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階層 ディ レク トリ 構造 
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加算 。 43 

カー ソル 27 
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型 定義 部 18 
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可変 部 "122 
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仮 引数 77 
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2 次 元 配 列 66 

2 進数 字 4 

2 分 法 72 

ニュ ー ト ン (Newton) 法 
入力 装置 4 


ハ 


バイ ト 型 41 
配列 63 


パス カル の 三角 形 。 67 
パー ソナ ル ・ コ ンピュータ 


ハー ドウ エア 3 
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